用VBScript实现压缩目录中的所有文件(Zip)
实现代码如下:On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not ob
实现代码如下:On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not ob
实现代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText