Discussion :

[LUCAS31]

Bonjour à tous,

j'ai un souci dans l’exécution de mon script. Je m'explique:

Ce dernier dois compresser l'ensemble des.pdf (~ 1Go de données)dans un dossier source.
Puis déplacer l'archive dans un dossier destination et finir supprimer les fichiers dans le dossier source.
Mais lorsque je lance mon script il lance la compression et dans la foulée il supprime les fichiers. Résultat je me retrouve avec une archive de 1ko

Je voudrais savoir comment indiquer dans mon script de supprimer les fichiers que lorsque ma compression sera fini.
J'ai tester avec un sleep cela fonctionne, mais si le contenu du dossier source est plus gros mon slip ne vaut rien.

Merci à tous pour vos réponse

Mon script:

Voici la partie du script qui pose pb

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
For Each Centre In Split(Centre,";",-1)
 
MyHex = _
Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
 
For i = 0 To UBound(MyHex)
    MyBinary = MyBinary & Chr(MyHex(i))
Next
 
Set oShell = CreateObject("WScript.Shell")
Set oFileSys = CreateObject("Scripting.FileSystemObject")
 
'Creation du zip
msglog "0","0000","-Debut: Traitement du ZIP " & Source & " et déplacement dans " & Destination & " pour le centre " & centre
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
 
'wScript.Sleep 3000000
 
Set oFile = Nothing
 
 
msglog "0","0000","-Fin: Traitement du ZIP " & Source & " et déplacement dans " & Destination & " pour le centre " & centre
 
Next
 
Sub SupprimeFiles
	Dim objsupp
	Set objsupp = WScript.CreateObject("Scripting.FileSystemObject")
	msglog "0","0000","-Debut: Suppresion des fichiers " & FILE_SUPP & " pour le centre " & centre
		objsupp.deletefile FILE_SUPP , force
	msglog "0","0000","-Fin: Suppresion des fichiers " & FILE_SUPP & " pour le centre " & centre	
end sub
 
msglog "0","0000","---Debut: Historique.vbs "
SupprimeFiles
msglog "0","0000","---Fin: Historique.vbs"
FileLog.Close

[omen999]

bonjour,

ah tiens, ça faisait longtemps qu'on avait pas eu des messages sur cette bidouille à la c*...
voir ici entre autres...
la méthode CopyHere est asynchrone et ne renvoie pas le status de l'opération au process appelant donc la compression se fait en aveugle
la solution bourrin consiste à définir un sleep joufflu pour gérer les volumes les plus élevés
sinon peut-être une boucle temporisée avec un polling sur la taille du fichier zip (quand la taille n'augmente plus, c'est cuit prêt )
et sinon, il y a des tonnes de solution avec des composants ou même des compresseurs en ligne de commande (7z) qui évitent de se prendre la tête inutilement

[LUCAS31]

Merci pour ta réponse omen999

j'ai fini par définir définir un sleep joufflu