2020-02-16 标签:vbs,合并,文件夹,里的,txt,实现,代码,如下,const,forreading,这句,dim,xint,xinlu,jiuw,objfso,f

实现代码如下： Const ForReading = 1 'VBS的这句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scriptin

2020-02-16 标签:vbscript,实现,压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,targetfile,function,path,file

实现代码如下：On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not ob

2020-02-16 标签:vbscript,实现,解压缩,目录,文件,zip,代码,如下,error,resume,next,dim,objfso,sourcepath,targetpath,function,getzipfile,path,file,folder

实现代码如下： On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderEx

2020-02-16 标签:vbscript,文件,操作,代码,小结,创建,文本文件,实现,如下,set,objfso,scripting,objfile,c,fso,scriptlog,txt

创建文本文件 实现代码如下：Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 实现代码如下：Set

2020-02-16 标签:vbs,字符,统计,功能,模块,实现,代码,如下,sub,tongji,set,objfso,scripting,objfile,ok,txt

字符统计功能模块 实现代码如下：Sub TongJi() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("ok.txt", 1) strText = objFile.

2020-02-16 标签:asp,删除,mssql,数据库,记录,图片,代码,采用,双重,循环,进行,分割,名字,前面,部分,其余,路径,对比,vb

采用双重循环。把图片进行“.”分割后名字问前面部分，那其余数据库中的 图片路径记录进行对比 采用vb的InStr函数 如果存在的话返回值>0,过可以得出结论 代码如下deal.asp 实现代码如下： " Set objFolder = objFSO.GetFolder(ff) For Ea

2020-02-16 标签:asp,实现,获取,文件夹,中文,个数,代码,如下,返回,指定,数目,传入,检测,硬盘,绝对,路径,function

实现代码如下：'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber(folderspec) Dim objfso,f,fc Set objfso=CreateObject("Scripting.FileSystemObject") Se

2020-02-16 标签:vbscript,合并,文本文件,脚本,文本,实现,代码,如下,sub,filename,set,objtextfile,objfso,forreading,true,until

合并文本的脚本可以这么写： 实现代码如下：Sub AppendTextFile(filename) Set objTextFile = objFSO.OpenTextFile(filename, ForReading, true, -2) Do Until objTextFile.AtEndOfSt

2020-02-16 标签:查看,局域网,在线,ip,vbs,脚本,实现,代码,如下,strsubnet,192,168,set,objfso,scripting,objts

实现代码如下：strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i =