如何确定何时复制完成VBScript？

Question

有谁知道确定文件副本何时在VBScript中完成的方法？我正在使用以下内容进行复制:

set sa = CreateObject("Shell.Application")  
set zip = sa.NameSpace(saveFile)  
set Fol = sa.NameSpace(folderToZip)  
zip.copyHere (Fol.items)

Answer 1

Do Until zip.Items.Count = Fol.Items.Count
    WScript.Sleep 300
Loop

当循环结束时,您的副本就完成了.

但如果您只想复制而不是压缩,FSO或WMI会更好.

如果你要压缩并希望它们在文件中,你必须自己创建zip文件,首先使用正确的标题.否则你只能获得压缩文件/文件夹IIRC.像这样的东西:

Set FSO = CreateObject( "Scripting.FileSystemObject" )
Set File = FSO.OpenTextFile( saveFile, 2, True )
File.Write "PK" & Chr(5) & Chr(6) & String( 18, Chr(0) )
File.Close
Set File = Nothing
Set FSO = Nothing

OpenTextFile中的2是ForWriting.