vbs 实现压缩文件夹为zip文件

最新推荐文章于 2025-05-21 12:24:53 发布

tianlianchao1982

最新推荐文章于 2025-05-21 12:24:53 发布

阅读量4.9k

点赞数

代码如下：

' VB Script Document
option explicit

createZip "d:\test", "d:\testZip.zip"

sub createZip(sfolder, tfolder)
  dim fso, zipfile
  dim shell, WshShell, destfolder, srcfolder

  ' create a blank zip compress file
  set fso = CreateObject("Scripting.FileSystemObject")
  set zipfile = fso.OpenTextFile(tfolder, 8, vbtrue)

  zipfile.Write "PK" & Chr(5) & Chr(6) & string(18, 0)
  zipfile.close

  ' copy you file into blank zip file
  set shell = CreateObject("Shell.Application")
  set WshShell = WScript.CreateObject("WScript.Shell")

  set destfolder = shell.NameSpace(tfolder)
  set srcfolder = shell.NameSpace(sfolder)

  destfolder.CopyHere srcfolder.items, &H214

end sub