Bonjour à tous et merci pour vos aides,

Je souhaiterais zipper des dossiers avec winzip
avec date system, déplacer les .zip
dans dossiers de destination, et pour finir
deleter les fichiers et dossiers zippés
les opérations s'effectuent bien que pour les lignes ci-dessous.

Source = "E:\Program\service_" & Centre & "\data\Sauvegarde"
Destination = "E:\Program\Sauve\service_" & Centre & "\Sauvegarde " & MyDate & ".zip"


Voici mon script, je pense avoir un problème
de boucle ou condition, je débute...???


*********************************************
***** Mon Script *****
*********************************************

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
72
73
74
75
76
Dim oShell
Dim objShell
Dim objWMIService
Dim oApp, oCTF, oFolder, oFile
Dim File, File2
Dim colListOfServices
Dim objService, strService
Dim Repository
Dim MyDate
 
Dim Source, Destination, MyHex, MyBinary, i
Dim oFileSys
 
 
Set oShell = CreateObject("WScript.Shell")
Set oFileSys = CreateObject("Scripting.FileSystemObject")
 
MyDate = Day(Now) & "." & Month(Now) & "." & Year(Now)
 
'Declaration des centres concernes
ListeCentre = "1;2;3"
 
'Debut du traitement
For Each Centre In Split(ListeCentre,";",-1)
 
Source = "E:\Program\service_" & Centre & "\Données"
Destination = "E:\Program\Sauve\service_" & Centre & "\Données " & MyDate & ".zip"
 
 
Source = "E:\Program\service_" & Centre & "\data\Sauvegarde"
Destination = "E:\Program\Sauve\service_" & Centre & "\Sauvegarde " & 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 oShell = CreateObject("WScript.Shell")
Set oFileSys = CreateObject("Scripting.FileSystemObject")
 
'Creation du zip
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 5000
 
Set oFile = Nothing
On Error Resume Next
Next
 
 
'-------------------------------------------------------------------------------------------------
 
'Declaration des centres concernes
'
'Debut du traitement
For Each Centre In Split(ListeCentre,";",-1)
 
Dim Centre
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile "E:\Program\service_" & Centre & "\Données"\*.bak",True  
' Le paramétre "Force" à true permet d'effacer les fichiers en lectures seules.
 
 
Next
Le probléme, me semble t il, est ligne 30 et 31