Discussion :

[azopei]

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

[SfJ5Rpw8]

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

[azopei]

bonjour bbil,
j'utilise "createtextfile"

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
    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é.

[ced600]

heu...
C'est tout ton code là ?

[azopei]

non évidemment, ça c'est l'extrait de code pour le zippage.
j'ai ajouté

Code :

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

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...

[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

[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.