Utilisation de VB6 + WSH avec compression Windows

Question

Problèmes avec la compression WSH et Windows.

Mon but est de pouvoir compresser des fichiers (pas des dossiers, mais des fichiers individuels provenant de divers endroits, que j'ai stockés dans un tableau) en utilisant la compression Windows intégrée. J'utilise VB6.

Voici ma routine (code 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 

Il fonctionne, mais des problèmes se posent quand il y a plus de quelques fichiers. Je commence à recevoir des erreurs de Windows (vraisemblablement, il appelle la compression trop vite, et le fichier zip est verrouillé). Je ne semble pas comprendre comment attendre jusqu'à ce que la fonction COPYHERE termine avant d'appeler le suivant pour éviter les problèmes.

Quelqu'un a-t-il une expérience avec ceci?

Merci -

Answer 1

Vous devriez être en mesure de réaliser ce genre de synchronisation en vérifiant le nombre de fichiers dans votre dossier cible ZIP avant de passer à la prochaine itération de la boucle (comme le suggère here et here):

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

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