VBScript压缩单个文件为zip格式
程序员文章站
2022-07-04 20:32:12
复制代码 代码如下: on error resume next dim fso,fp,oapp,targetfile set fso=createobject("scrip...
复制代码 代码如下:
on error resume next
dim fso,fp,oapp,targetfile
set fso=createobject("scripting.filesystemobject")
targetfile="d:\tmp.zip"
set fp=fso.opentextfile(targetfile,2,true)
fp.write chr(80) & chr(75) & chr(5) & chr(6) & string(18,0)
fp.close
set oapp=createobject("shell.application")
set fso=nothing
err.clear
oapp.namespace(targetfile).copyhere "c:\1.txt"
wscript.sleep 1000