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


For Each Centre In Split(Centre,";",-1)
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
	
	
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