oapp 相关的软件列表

首页

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