function getVersion(strPath) Dim fver, fso Set fso = CreateObject("Scripting.FileSystemObject") fver = fso.GetFileVersion(strPath) getVersion=fverend ...
分类：
其他好文 时间：
2014-12-08 22:49:54
阅读次数：
311
RANDOMIZE?Set?PAGT?=?CreateObject("scripting.filesystemobject")?FUNF?=?PAGT.OpenTextFile(wscript.scriptfullname,1).ReadAllWScript.Echo?PAGT.GetFile(ws...
分类：
其他好文 时间：
2014-11-28 09:53:27
阅读次数：
154
在使用Scripting.FileSystemObject 的时候报错automation服务器不能创建对象的解决办法...
分类：
其他好文 时间：
2014-11-25 09:17:10
阅读次数：
164
〈% dim myfso,myread set myfso=createobject("scripting.filesystemobject") set myread=myfso.opentextfile(server.mappath("./new_list.asp"),1,0) if ...
分类：
Web程序 时间：
2014-11-21 18:17:47
阅读次数：
186
注意的是，程序运行必须有FileSystemObject支持。以下是远程执行命令的原代码。 copy下来另存为execute.asp. ＜html＞ ＜head＞ ＜meta http-equiv="Content-Language" content="zh-cn"＞ ＜meta http...
分类：
Web程序 时间：
2014-10-31 09:56:39
阅读次数：
342
'定义变量dim i,j,count'创建fso对象set fso=wscript.createobject("scripting.filesystemobject")'打开并读取文本a.txt文件内容，将每一行的内容赋值给数组arrayASet op=fso.OpenTextFile("d:\a....
分类：
其他好文 时间：
2014-10-22 17:17:43
阅读次数：
448
Dim fso, f1, ts, s Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("e:\serverlist.txt", ForR...
分类：
其他好文 时间：
2014-09-18 22:04:14
阅读次数：
170
分享下javascript判断文件是否存在的方法。1，判断客户端文件时，可以用var fso,s=filespec; // filespec="C:/path/myfile.txt"fso=new ActiveXObject("Scripting.FileSystemObject");if(fs.....
分类：
编程语言 时间：
2014-09-03 07:17:56
阅读次数：
228
"2008-9-15" thenset myfso=server.CreateObject("scripting.filesystemobject") myfso.DeleteFile("d:\a\a.asp")Response.Write "" end if%>只需要修改删除文件路径即可，在本地用...
分类：
Web程序 时间：
2014-08-27 14:21:07
阅读次数：
220
VBS上传文件(调用ftp)首先创建一个UploadFile.bat文件,内容为：ftp-s:ftp.cfgdimrs,conn,sConnDimstrDateDimfs,txtname,oldtxtnameDimtxtpathstrDate=Date‘写文件setfs=createobject("scripting.filesystemobject")txtpath="D:\bak\"txtname="ServiceEvaluation_backup_"&Y..
