VBScript压缩单个文件为zip格式

时间2024-02-11 15:05:03发布访客分类脚本浏览999

导读：收集整理的这篇文章主要介绍了VBScript压缩单个文件为zip格式，觉得挺不错的，现在分享给大家，也给大家做个参考。复制代码代码如下: On Error Resume Next D...

收集整理的这篇文章主要介绍了VBScript压缩单个文件为zip格式，觉得挺不错的，现在分享给大家，也给大家做个参考。复制代码代码如下:
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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

若转载请注明出处： VBScript压缩单个文件为zip格式
本文地址： https://pptw.com/jishu/609956.html

从XML文件中获取信息的vbs代码去掉RAR右键解压菜单的VBS代码