Bonjour à tous,

j'ai un script qui effectue pas une dizaine de compressions dans des dossiers differents en vue de faire des sauvegardes. De dernier fonctionne, mais le nombre de fichier peut varier d'un mois sur l'autre.

N'étant pas un pro du VBS, je souhaiterais savoir si il était possible
avec cette méthode de compression, de ne pas passer par un:

wScript.Sleep xxxxxxx

mais d'attendre la fin de la premiere compréssion pour passer à l'autre.


Je vous remercie d'avance à tous



Extrait de mon code


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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
'-----------------------------------------
'Compression les logs pour archivage
'-----------------------------------------
Sub COMPRESS
		msglog "0","0000","---Debut:	Compression 
Set oShell = CreateObject("WScript.Shell")
Set oFileSys = CreateObject("Scripting.FileSystemObject")
 
ListeSrv = "Charge;comptes;reçus"
ListeCommon = "editions;resultats;production"
 
 
		msglog "0","0000","---Debut:	Compression
For Each Centre In Split(ListeCentre,";",-1)
 
	Source = "C:\appli\Traitement\" & Centre & "\log"
	Destination = "K:\Sauvegarde\Traitement\log_" & Centre & "_" & MyDate & ".zip"
 
	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 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 100000
 
Set oFile = Nothing
 
		msglog "0","0000","---Fin:	Compression 
Next
 
		msglog "0","0000","---Debut:	Compression 
For Each Srv In Split(ListeSrv,";",-1)
 
	Source1 = "C:\appli\Traitement\Export_" & Srv & "\log"
	Destination1 = "K:\Sauvegarde\Traitement\Log_" & Srv & "_" & MyDate & ".zip"
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 oCTF = oFileSys.CreateTextFile(Destination1, True)
oCTF.Write MyBinary
oCTF.Close
Set oCTF = Nothing
 
Set oApp = CreateObject("Shell.Application")
 
Set oFolder = oApp.NameSpace(Source1)
If Not oFolder Is Nothing Then _
    oApp.NameSpace(Destination1).CopyHere oFolder.Items
 
wScript.Sleep 100000
 
Set oFile = Nothing
		msglog "0","0000","---Fin:	Compression 
Next