vbscript - español - vbs tutorial

¿Cómo determinar cuándo termina la copia en VBScript?

Question

¿Alguien sabe de un método para determinar cuándo una copia de archivo se completa en VBScript? Estoy usando lo siguiente para copiar:

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

Answer 1

Puede tener mejor suerte usando el método Copiar en un FileSystemObject . Lo he usado para copiar, y es una llamada de bloqueo.

Answer 2

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

Cuando termina el ciclo, su copia ha terminado.

Pero si solo quiere copiar y no comprimir, FSO o WMI es mejor.

Si está comprimiendo y quiere que estén en un archivo, debe crear usted mismo el archivo comprimido, primero con el encabezado correcto. De lo contrario, solo obtendrá archivos comprimidos / carpetas IIRC. Algo como esto:

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

El 2 en OpenTextFile es ForWriting.

Answer 3

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