Ich habe ein kleines VBScript geschrieben, um eine ZIP-Datei zu erstellen, und kopiere dann den Inhalt eines angegebenen Ordners in diese ZIP-Datei.

Ich kopiere die Dateien aus einem bestimmten Grund nacheinander (ich weiß, dass ich die ganze Menge auf einmal erledigen kann). Mein Problem ist jedoch, wenn ich versuche, sie einzeln ohne ein WScript zu kopieren. Zwischen jeder Schleifeniteration erhalte ich die Meldung "Datei nicht gefunden oder keine Leseberechtigung". Error; wenn ich ein @ platzieWScript.Sleep 200 nach jedem schreiben funktioniert es aber nicht 100% der zeit.

Pretty much Ich möchte die Sleep-Funktion loswerden und mich nicht darauf verlassen, da es je nach Dateigröße länger dauern kann, bis geschrieben wird. Daher reichen 200 Millisekunden möglicherweise nicht aus.

Wie Sie mit dem kleinen Code unten sehen können, durchlaufe ich die Dateien. Wenn sie mit der Erweiterung übereinstimmen, lege ich sie in die .zip-Datei (zipFile)

For Each file In folderToZip.Items
    For Each extension In fileExtensions
        if (InStr(file, extension)) Then
            zipFile.CopyHere(file)
            WScript.Sleep 200
            Exit For
        End If
    Next
Next

Haben Sie Vorschläge, wie ich mich nicht mehr auf die Sleep-Funktion verlassen kann?

Vielen Dan