VBScript压缩单个文件为zip格式-范文、应用文-IT技术专栏-脚本栏目-考试资料-在线学习网

网站首页汉语字词英语词汇考试资料写作素材旧版资料

标题	VBScript压缩单个文件为zip格式
内容	将单个文件压缩为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
随便看	学校励志标语安全理念口号60条安全第一之皮带安全关于安全生产的口号消防安全宣传口号50条消防安全宣传标语10则安全生产月活动宣传口号数学教师工作总结小学数学工作总结实习指导教师工作总结师范生见习工作总结教师暑期工作总结银行月度工作总结暑期培训班工作总结柜员月度工作总结网络部月工作总结网络公司月工作总结网络维护月工作总结护理专业工作总结 2014年初中工作总结初中学校团工作总结初中学校月工作总结初中学校周工作总结质检员试用期工作总结学校卫生工作总结 flash-back FMQs FMV foal foaled foaling foam foam at the mouth foam-at-the-mouth foam board 若有所思若有若无若果若然若许若辈若隐若现若非苦苦中作乐 2021国家宪法日初中国旗讲话发言稿5篇小学国防教国旗下的讲话范文 119消防宣传日国旗下讲话稿 119消防日的国旗下讲话稿 119消防日国旗下讲话稿范文感恩节国旗下的讲话演讲稿小学生范文师德师风国旗下讲话稿六篇范文万圣节主题国旗下的讲话稿5篇2021 二年级交通安全国旗下讲话2分钟5篇学生代表关于长征精神的国旗下讲话稿

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。