vérifier que la compression est terminée

Version imprimable

01/12/2008, 10h16
azopei

vérifier que la compression est terminée

Bonjour,
j'essaie de compresser un grop répertoire avant de l'envoyer par ftp sur un serveur.
mon problème : l'envoie se fait avant que le fichier zip ne soit fini.

j'ai tenté de mettre une boucle d'attente en testant la taille du zip (est-ce que la taille du zip est la même avant et après le délai) mais ça ne fonctionne pas bien (la mise à jour de la taille a pas l'air très précise).

peut-être pourrais-je me servir de la boite de dialogue de l'avancement de la compression mais je ne sais pas comment l'appeler !
Quelqu'un peut-il m'aider ?
merci
01/12/2008, 10h35
SfJ5Rpw8

et tu utilise quoi pour compresser ton fichier ? ( code ?)

bonjour bbil,
j'utilise "createtextfile"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Set oCTF = oFileSys.CreateTextFile(Destination, True)
    oCTF.Write MyBinary
    oCTF.Close
    Set oCTF = Nothing
 
    Set oApp = CreateObject("Shell.Application")
 
    Set oFolder = oApp.Namespace(Source)
    If Not oFolder Is Nothing Then _
        oApp.Namespace(Destination).CopyHere oFolder.Items
 
    Set oFile = Nothing
    On Error Resume Next
 
    Do While (oFile Is Nothing)
 
        Set oFile = oFileSys.OpenTextFile(Destination, ForAppending, False)
 
        If Err.Number <> 0 Then
            Err.Clear
        End If
    Loop

mon problème étant que la boucle se finit bien avant que le zip soit effectivement terminé.

01/12/2008, 13h04
ced600

heu...
C'est tout ton code là ?
01/12/2008, 14h06
azopei
non évidemment, ça c'est l'extrait de code pour le zippage.
j'ai ajouté
Code:

1 2 3 4 5 6 7 While FileLen(Destination) <> taille DoEvents taille = FileLen(Destination) Sleep (1000) DoEvents Wend
pour marquer une pause dans le code jusqu'à ce que le fichier zip soit stable en taille (qui aurait du signifier la fin du zippage).

ensuite je lance ma fonction d'envoie de ftp

le problème c'est qu'il semblerait que la taille du zip ne change pas toute les seconde même si le zippage n'est pas fini. je pourrais allonger mon temps de pause mais c'est pas très propre comme méthode.
j'aurais bien aimé pouvoir interrogé l'événement "le zip est fini" mais je sais pas quel est son nom...
01/12/2008, 16h11
omen999

bonjour,
ce problème est soumis de façon régulière sur ce forum
ex (au hasard): http://www.developpez.net/forums/d50...toire-fichier/
ce hack est de toute façon intrinsèquement mal foutu puisque la compression est faite par windows dans un process distinct,
donc de façon asynchrone et sans possibilité de gérer sa progression
une seule solution empirique et casse-gueule: définir des sleep en fonction de la taille des fichiers à compresser :aie:
01/12/2008, 17h08
azopei

c'est bien la solution pour laquelle j'ai opté : testé l'évolution de la taille du fichier. Toutefois la compression se faisant effectivement par windows, il y a une barre de progression active. je me disais qu'on pouvait peut-être l'interroger ? ce type d'objet est-il facilement identifiable ?

si vous avez des idées sur cette question... sinon je mets le tag résolu.