targetfile 相关的软件列表

首页

用VBScript实现压缩目录中的所有文件(Zip)

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

首页

VBScript压缩单个文件为zip格式

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText