使用 VB6 +带 Windows 压缩的 WSH

Question

WSH 和 Windows 压缩遇到问题。

我的目标是能够使用内置的 Windows 压缩功能压缩文件（不是文件夹，而是来自不同位置的单个文件，我将其存储在数组中）。我用的是VB6。

这是我的例程（vb6 代码）：

Dim objShell
Dim objFolder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.namespace(savePath & "\export.zip")
' --
' loop through array holding files to zip
For i = 0 To filePointer
  objFolder.CopyHere (filesToZip(i))
Next
' --
Set objShell = Nothing
Set objFolder = Nothing

它可以工作，但是当文件数量较多时就会出现问题。 我开始从 Windows 中收到错误（大概是它调用压缩速度太快，并且 zip 文件被锁定）。我似乎无法弄清楚如何等待 COPYHERE 函数完成，然后再调用下一个函数以避免出现问题。

有人有这方面的经验吗？

谢谢 -

Answer 1

在继续下一个循环迭代之前，您应该能够通过检查目标 ZIP 文件夹中的文件计数来实现这种同步（如建议的 此处和此处 >):

For i = 0 To filePointer
  objFolder.CopyHere filesToZip(i)

  Do Until objFolder.Items.Count = i+1
    WScript.Sleep 100
  Loop
Next