Discussion :

[Knoxink]

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

[Fredledingue]

Je pense que cceci devrait marcher
Remplace la fin du code par:

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
'....
With fso.GetFolder(dir)
dest2 = .path
'--- retire le premier contreslash qui suit la lettre du drive---
dest2 = Mid(dest2, InStr(dest2, "\")+1)
'--- eventuellement recommence pour retirer le nom du premier directory qui est souvent inutile---
'---( retire ' pour activer )---
'dest2 = Mid(dest2, InStr(dest2, "\")+1)
'--- ajoute le directory a l4arborescence--- 
dest2 = dest & dest2 & "\"
	For Each objFile in .Files 
		if DateDiff("d", objFile.DateLastModified, modDate) = 0 Then 
		fso.CopyFile objfile,dest2, True 
		'objFile.CopyFile dest2, 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