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
相关文章
主要是用于flash网页木马调用方法，是flash的一个bug吧，大家以后要小心了2008-06-06
vbscript 可以按引用传递参数吗？...2006-10-10
SQL获取表结构的show_table.vbs （冰点极限NP）
SQL获取表结构的show_table.vbs，用vbs实现查看sql数据库的表结构的代码。需要传入用户名密码与数据库名称，具体的看程序帮助。2010-11-11
VBS教程：VBscript语句-On Error 语句...2006-11-11
文件夹定时自动备份 AutoBackUpFolder.vbs
定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计。2009-07-07
启用：regsvr32 scrrun.dll 禁用：regsvr32 /u scrrun.dll2008-07-07
VBS教程：属性-SerialNumber 属性...2006-11-11
这篇文章主要介绍了用vbs获取外网的ip地址，通过用vbs访问ip显示页面的返回值实现，需要的朋友可以参考下2013-07-07
VBS教程：VBscript属性-Length 属性...2006-11-11
vbscript LoadPicture函数使用方法与漏洞利用
因为有人说这里LoadPicture的代码有些问题，所以这里给修正下，方便需要的朋友2008-12-12
最新评论