手机
当前位置:查字典教程网 >脚本专栏 >vbs >VBScript压缩单个文件为zip格式
VBScript压缩单个文件为zip格式
摘要:复制代码代码如下:OnErrorResumeNextDimfso,fp,oApp,targetfileSetfso=CreateObject...

复制代码 代码如下:

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

【VBScript压缩单个文件为zip格式】相关文章:

ASP/VBScript中CHR(0)的由来以及带来的安全问题分析

VBScript 常用函数总结

SendKeys clip.exe 发送中文的代码

VBScript教程 第七课使用条件语句

VBScript教程 第十二课VBScript页面的简单样例

用VBS读写二进制文件的另一种方法分享

VbScript 封裝MS OWC(二)

vbscript sendkeys实例代码大全

VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP

VBS教程:VBScript 基础-使用条件语句

精品推荐
分类导航