Как определить, когда копирование заканчивается в VBScript? - PullRequest
Новая
       36

Как определить, когда копирование заканчивается в VBScript?

4 голосов
/ 29 сентября 2008

Кто-нибудь знает метод определения момента завершения копирования файла в VBScript? Я использую следующее для копирования: 

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

Ответы [ 3 ]

6 голосов
/ 29 сентября 2008 
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

2 в OpenTextFile - это ForWriting.

2 голосов
/ 29 сентября 2008

Возможно, вам повезет больше, если использовать метод копирования на FileSystemObject. Я использовал его для копирования, и это блокирующий вызов.

0 голосов
/ 17 февраля 2015 
Const FOF_CREATEPROGRESSDLG = &H0&
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set fso = CreateObject("Scripting.FileSystemObject")

strSource = " " ' Source folder path of log files
strTarget = " .zip" ' backup path where file will be created

AddFilesToZip strSource,strTarget

Function AddFilesToZip (strSource,strTarget)
Set r=fso.GetFolder(strSource)
    set file = fso.opentextfile(strTarget,ForWriting,true) 
    file.write "PK" & chr(5) & chr(6) & string(18,chr(0)) 
    file.Close
    Set shl = CreateObject("Shell.Application")
    i = 0

        For each f in r.Files
            If fso.GetExtensionName(f) = "log" Or fso.GetExtensionName(f) = "Log" Or fso.GetExtensionName(f) = "LOG" Then
            shl.namespace(strTarget).copyhere(f.Path)', FOF_CREATEPROGRESSDLG   
                Do until shl.namespace(strTarget).items.count = i
                    wscript.sleep 300
                Loop
            End If
            i = i + 1
        Next

        set shl = Nothing
End Function
...