[Batch] script de backup

Version imprimable

28/01/2008, 23h51
GPZ{^_^}

[Batch] script de backup

Salut tout le monde j'ai un petit soucis avec un script batch de sauvegarde.

Je vous explique rapidemment le script, en fait j'utilise simplement une liste de xcopy avec les options pour qu'il compare les dates avant d'écraser les fichiers.
Mais le problème, c'est que si par exemple dans les dossier originaux je déplace des fichiers dans d'autres dossier, et bien lorsque je vais éxécuter le script, ça va bien m'ajouter le fichier dans le même dossier de backup, mais ça va aussi laisser le fichier à l'endroit où il était au départ (par rapport à la sauvegarde précédente).
Donc je voulais savoir si yavait moyen soit de demander à xcopy de virer les fichiers qui n'existe pas dans les dossiers originaux des dossiers de sauvegarde ou soit de trouver un moyen de tester tous les fichiers qui sont dans la sauvegarde s'ils existent aussi dans le dossier original. J'espère que j'ai été assez clair :s

Merci d'avance
28/01/2008, 23h57
elitost

Juste un petit conseil(parce que je me suis retrouvé un jour à créer un script de backup DOS), ne serait il pas plus efficace d'utiliser un logiciel gérant les backups ? ( par exemple http://astase.com/produits/ultrabackup/2007/ )
29/01/2008, 00h28
GPZ{^_^}

Hum j'en avais essayé qeuqlues uns, et j'avais pas trouvé mon bonheur, mais je vais tout de suite essayé celui que tu viens de mettre en lien.

Bonjour ;)

En batch j'ai commencer quelque chose:

Code:

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
@echo off


setlocal enableDelayedExpansion

set vrSource=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier
set vrDestnt=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier (2)

for /r "%vrSource%\" %%i in (*.*) do set vrChmNomFch=%%i& call :testFch
goto fintestFch

:testFch

set vrChmNomFchCourt=%vrChmNomFch:!vrSource!=%

echo %vrDestnt%\%vrChmNomFchCourt%

:: if not exist "%vrDestnt%\%vrChmNomFchCourt%" del "%vrDestnt%\%vrChmNomFchCourt%"

goto :eof

:fintestFch

endlocal 

pause>nul

Mais cette ligne ne fonctionne pas:

Code:

set vrChmNomFchCourt=%vrChmNomFch:!vrSource!=%

Si non j'ai fait ca en VBS:

Code:

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
dim vrSource, vrDestnt

vrSource = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier"
vrDestnt = "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier (2)"


Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FSO = CreateObject("Scripting.FileSystemObject")


If oFSO.FolderExists(vrSource) Then

 For each oFl in  oFSO.GetFolder(vrSource).Files

  vrChmCourt = Replace(oFl.Path,vrSource & "\","") 
  vrChmDestn = vrDestnt & "\" & vrChmCourt
     
     If objFSO.FileExists(vrChmDestn) Then
     Else
        vrChmExit = vrChmExit & vbCrLf & vrChmDestn
        Set fsoFile = fso.getFile(oFl.Path)
         fsoFile.delete
     End If

 Next

End If


Wscript.Echo vrChmExit

29/01/2008, 11h38
GPZ{^_^}

Ouais, j'ai testé deux programmes de backup, UltraBackup, j'ai pas trop aimé ya beaucoup trop d'options et de réglage pour ce que je veux faire et ça prends trop de ressources.
Et j'ai aussi testé Cobian Backup, et là un peu pareil, et surtout ça me génère le même problème que mon script shell c'est qu'il ne fait pas des vraies copies miroir des dossiers.

et sinon par rapport à ton script vbs, il faut quoi pour exécuter un script comme ça ? c'est pris en compte dans windows ?
29/01/2008, 11h51
koKoTis

Citation:

Envoyé par GPZ{^_^}

et sinon par rapport à ton script vbs, il faut quoi pour exécuter un script comme ça ? c'est pris en compte dans windows ?

Pour vbs tu met l'extension .vbs
Pour batch tu met l'extension .bat
et windows éxécutera tout seul ;)
29/01/2008, 12h04
elitost

Citation:

Envoyé par koKoTis

Pour vbs tu met l'extension .vbs et windows éxécutera tout seul ;)

A vérifier que le window scripting est activé si je ne me trompe pas ?
29/01/2008, 13h35
GPZ{^_^}

Bah apparemment c'est activé chez moi, par contre ton script a pas marché, il a effacé les fichiers que javais dans le dossier source... en fait j'ai limpression que tu as peut etre inverser source et destination

alor inversse les variables

au lieu de:

Code:

1
2
set vrSource=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier
set vrDestnt=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier (2)

tu fait:

Code:

1
2
set vrSource=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier (2)
set vrDestnt=C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier

Je me suis programme un script VBS pour comparer le contenu de deux dossier et supprimé les fichiers et/ou dossiers qui seraient dans le répertoire de destination mais pas dans le répertoire source. Je vais le coupler avec mon script shell et ça sera parfait :)
Code:

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 Dim rep1, rep2 rep1 = "D:\Office10" rep2 = "D:\Nouveau dossier" Function VerifMiroir( repSource, repDest ) Dim oFSO, oFl, oFld Set oFSO = CreateObject("Scripting.FileSystemObject") If (oFSO.FolderExists(repSource) and oFSO.FolderExists(repDest)) Then For each oFld in oFSO.GetFolder(repDest).SubFolders If oFSO.FolderExists( (repSource & "\" & oFld.Name) ) Then VerifMiroir (repSource & "\" & oFld.Name), oFld Else oFld.Delete True End If Next For each oFl in oFSO.GetFolder(repDest).Files If not oFSO.FileExists( (repSource & "\" & oFl.Name) ) Then oFl.Delete True End If Next End If End Function VerifMiroir rep1, rep2 MsgBox "Traitement terminé"
Merci pour le VBS en tout cas, je connaissais pas et ça peut être vachement utile :)

29/01/2008, 15h26
koKoTis

je ne connaisser pas la fonction:

Code:

Function VerifMiroir

Plu pratique que mon script ;)

C'est vrai que c'est mieu que le batch le vbs :D