关于：文件压缩の话题！

VBScript压缩单个文件为zip格式

• 大幻想家 发布于 2012-01-23 19:58
• 收藏 代码 格式 更新时间 文件压缩 压缩 复制 参考 文件

复制代码 代码如下: 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) ..