VBScript压缩单个文件
- 作者: 梦泉总代
- 来源: 51数据库
- 2022-08-17
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
推荐阅读