AG广东会,山东十一选五,大发

?
  • AG广东会400电话
  • 微网小程序
  • AI电话山东十一选五
  • 电商代运营

    • AG广东会,山东十一选五,大发:全 部 栏 目

    AG广东会400电话 网络优化推广 AI电话山东十一选五 呼叫中心 网站建设 商标?知产 微网小程序 电商运营 彩铃?短信 增值拓展业务
    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
    上一篇：用VBScript实现解压缩目录中的所有文件(Zip)
    下一篇：使用脚本自动压缩指定目标下的所有文件的代码
  • 相关文章
    • ?

    ? 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBScript压缩单个文件为zip格式 VBScript,压缩,单个,文件,

    AG广东会官网入口(中国)官方网站-IOS/Android通用版（2026已更新）