Bonjour,

Je cherche à créer un script en VBS pour faire le backup d'un serveur de fichiers mais le problème c'est que je connais rien en VBS.
J'ai trouvé un script en VBS qui fait le backup mais QUE des fichiers et non de l'arborescence ..
Quelqu'un pourrait m'aider pour modifier ce script et pouvoir sauvegarder l'arborescence complète ?

Voici le 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
 
Option Explicit
Const start = "c:\test\"
Const dest = "c:\test2\"
Const logName = "c:\test2\log.txt"
Dim fso,Logg
Set fso = CreateObject("Scripting.FileSystemObject")
Set logg = fso.OpenTextFile(logName, 8, True)
logg.WriteLine vbNewLine & "Backup started @ " & Now()
DoWork start, dest, Now()
logg.WriteLine "Backup ended @ " & Now()
Sub DoWork(dir, dest, modDate) 
Dim objFile, objDir 
logg.WriteLine "DIR: " & dir 
If Not fso.FolderExists(dir) Then 
logg.WriteLine "Can't find the " & dir & " folder" 
Exit Sub 
End If 
 
With fso.GetFolder(dir)
For Each objFile in.Files 
if DateDiff("d", objFile.DateLastModified, modDate) = 0 Then 
fso.CopyFile objfile,dest, True 
'objFile.CopyFile dest, True 
logg.WriteLine objFile.Name & ", Mod-Date: " & objFile.DateLastModified & ", copied to " & dest 
End If
Next
For Each objDir in.SubFolders
DoWork objDir.Path, dest, modDate
Next
End With
End Sub