Discussion :

[dragondumond]

Bonjour,

J'ai un programme qui utilisé XZip mais par nécessité, j'ai du changer la zone de compression par 7zip, pour cela je lance une ligne d'instruction du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell(...)

, cela marche bien mais l'ancien programme (avec XZip) prévoie des méthodes pour supprimer les fichiers ainsi que du dossier non compressé à la fin de la compression donc j'ai du remplacer cette partie aussi par du code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill "C:\..."

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mkdir "C:\..."

Mon souci est que mon programme supprime le dossier avant d'avoir fini le zippage du coup je me retrouve avec un fichier zip vide.
J'ai pensé a DoEvents mais j'ai l'impression que sa marche pas, sinon je suis ouvert à vos suggestions.

Perso, je serais assez fan d'un boucle While avec un mini sleep à l’intérieur tant que le zippage n'est pas fini mais je sais pas comment on vérifie si le zippage est fini ou pas.

Merci d'avance pour vos solutions.

Cordialement,
Tomy.

PS: Pour l'instant j'ai pas la possibilité de tester ni de vous montrer mon code car le poste sur le quelle je développe est indisponible.

[dragondumond]

Bonjour,

Normalement c'est résolu mais j'attends la confirmation d'un sénior car je suis pas sur que la méthode que j'ai utilisé est la plus fiable. Je m'explique, j'ai ajouté une boucle While avec un mini sleep tant que le fichier zip est ouvert hors je connais pas bien le fonctionnement de 7z, j'ai peur qu'a long terme, je me retrouve avec des fichiers manquants si 7z lui prends l'envie d'ouvrir et fermer le fichier zip a volonté avant la fin de l'archivage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'TFH - 20140912 - Function pour archiver un dossier en .zip
Private Function ArchiveToZip(pathToArchive As String) As Long
    Dim ArgType As String
 
    ArgType = "a -y -tzip"
    ArchiveToZip = Shell("C:\Program Files (x86)\7-Zip\7z.exe" + " " + ArgType + " " + pathToArchive + " " + pathToArchive)
 
    'Sécurité pour s'assurer que le fichier est bien zipper car suppression du dossier juste apres cette function
    While IsFileOpen(pathToArchive + ".zip")
        DoEvents: Sleep 20
    Wend
End Function
 
 
'TFH - 20140916 - Function pour savoir si un fichier est ouvert ou pas
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

J'ai pensé aussi a une sécurité supplémentaire du genre comparer le nombre de fichier dans le zip et dans le répertoire mais je sais pas si c'est vraiment conseillé de farfouillé dans un fichier zip qu'on a pas encore fini d'archiver. Ou alors je pourrais calculer le nombre de fichier après ma première boucle While.

Merci beaucoup a celui qui a réalisé cette page qui est très utile :
http://vb.developpez.com/faq/?page=Fichiers

[ProgElecT]

Salut

Peut être que l'ouverture de 7z.exe pourrait se faire avec La méthode Run de l'objet WshShell, en effet son 3éme paramètre permet d'attendre la fin de l'exécution du programme avant de continuer le code.