我正在尝试使用VBScript压缩一个文件夹,但好像无法正常工作。我确定已经正确创建了头文件。
它可以正确地创建实际文件,只是无法压缩文件夹。
有人有什么想法吗?
它可以正确地创建实际文件,只是无法压缩文件夹。
有人有什么想法吗?
Sub ArchiveFolder (folder)
Dim fso, wShell, sApp, zipFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set wShell = CreateObject("WScript.Shell")
Set sApp = CreateObject("Shell.Application")
Set zipFile = fso.CreateTextFile(folder & ".zip")
' Write zip file header.
zipFile.Write "PK" & Chr(5) & Chr(6) & String(18, 0)
zipFile.Close
sApp.NameSpace(folder & ".zip").CopyHere folder
End Sub