VBScript压缩单个文件为zip格式
更新时间：2012年01月23日 19:58:25 作者：
将单个文件压缩为zip格式的vbs代码，需要的朋友可以参考下
复制代码 代码如下:
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
相关文章
病毒专杀VBS模块...2007-06-06
可以将文件转换为vbs语句的vbs代码...2007-03-03
vbs版的sql查询分析器，该有的功能都有了2008-08-08
修复Windows上面的WScript的脚本(.vbs)不能执行了
修复Windows上面的WScript的脚本(.vbs)不能执行了...2007-03-03
这篇文章主要介绍了自定义vbs脚本实现开机后延时启动指定程序的方法,本文以延迟启动金山毒霸为例,需要的朋友可以参考下2014-09-09
LCX在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。2009-07-07
使用vbscript脚本在表单中进行选择的代码...2007-04-04
可以躲过杀毒软件的vbs下载网络文件并保存为本地的加强版代码2008-05-05
用vbs实现可以查找指定扩展名的文件，方便大家搜索2008-06-06
用vbs得到计算机的 IP 地址...2007-05-05
最新评论