Programme qui fait des backup

Programme qui fait des backup - Logiciels - Windows & Software

Marsh Posté le 23-12-2004 à 16:57:09    

Voilà je cherche un programme qui fait des backup à un certain moment de la journée.
 
Par exemple :
 
Je veux que le dossier :
 
c:/test/ du PC 1 (en réseau)
 
Soit copier dans
 
c:/sauvegarde/ de mon PC
 
tout les jours en fin de journée
 
 
Merci

Reply

Marsh Posté le 23-12-2004 à 16:57:09   

Reply

Marsh Posté le 23-12-2004 à 17:07:44    

1) Edit un fichier texte:
xcopy source destination /E /V /Q /H /R /Y
 
2) nomme le backup.bat
3) planificateur des taches de windows
 
version en VBS pouvant être modifiée à loisir (merci à JC.Bellamy):

Code :
  1. ' ----------------------------------------------------------------
  2. ' Script de backup des dossiers spaux de l'utilisateur en cours
  3. ' (A exter de prrence avec cscript)
  4. '
  5. ' Syntaxe:
  6. ' backupspecial [<rrtoire_de_destination>]
  7. '
  8. '   Si rrtoire de destination est omis,
  9. '   la copie a lieu dans %temp%\%username%
  10. '
  11. '   Le rrtoire de destination peut exister ou non
  12. '
  13. ' JC BELLAMY  2001
  14. ' ----------------------------------------------------------------
  15. Dim net, shell, args, fso, fldrs, spf, dirtemp, fdest
  16. Set net   = Wscript.CreateObject("WScript.Network" )
  17. Set shell = WScript.CreateObject("WScript.Shell" )
  18. Set fso   = WScript.CreateObject("Scripting.FileSystemObject" )
  19. Set args  = Wscript.Arguments
  20. If args.count=0 Then
  21. User=net.UserName
  22. Set dirtemp = fso.GetSpecialFolder(2)
  23. dest=dirtemp & "\" & user
  24. Else
  25. dest=args(0)
  26. End If
  27. If right(dest,1)="\" Then dest=left(dest,len(dest)-1)
  28. ' Crion rrsive du dossier destination s'il n'existe pas
  29. If not fso.FolderExists(dest) Then SuperCreateFolder dest
  30. dest=dest & "\"
  31. Set fldrs=Shell.SpecialFolders
  32. spf=array("AppData","Desktop","Favorites","MyDocuments", _
  33.           "NetHood","PrintHood","Programs","Recent", _
  34.    "SendTo","StartMenu","Templates" )
  35. wscript.echo "Copie des dossiers spaux du compte " & user & " vers " & dest
  36. For i = 0 to UBound(spf)
  37. curfolder=fldrs(spf(i))
  38. wscript.echo curfolder
  39. fso.CopyFolder curfolder, dest, true
  40. next
  41. ' Effacement ntuel des attributs syst des fichiers
  42. ' afin de permettre un autre backup
  43. wscript.echo "Effacement des attributs RHS"
  44. ResetAllAttrib dest
  45. Wscript.quit
  46. '--------------------------------------------------------------------
  47. ' sous-programme de crion rrsive de dossier
  48. Sub SuperCreateFolder(fd)
  49. If fd="" Then exit sub
  50. bs=InstrRev(fd,"\" )
  51. parent=left(fd,bs-1)
  52. If len(parent)>2 Then
  53. If not fso.FolderExists(parent) then SuperCreateFolder Parent
  54. End If
  55. fso.CreateFolder(fd)
  56. End Sub
  57. '--------------------------------------------------------------------
  58. ' sous-programme d'effacement rrsif des attributs RHS
  59. Sub ResetAllAttrib(fd)
  60. dim collSubfolder,collFiles,subfd,curfile,curfd
  61. set curfd=fso.GetFolder(fd)
  62. curfd.Attributes=ResetAttrib(curfd.Attributes)
  63. set collSubfolder=curfd.SubFolders
  64. For each subfd in collSubfolder
  65. ResetAllAttrib subfd.path
  66. Next
  67. set collFiles=curfd.Files
  68. For each curfile in collFiles
  69. curfile.Attributes=ResetAttrib(curfile.Attributes)
  70. Next
  71. End Sub
  72. '--------------------------------------------------------------------
  73. Function ResetAttrib(Attr)
  74. ReadOnly=1
  75. Hidden=2
  76. System=4
  77. If Attr and ReadOnly Then Attr=Attr-ReadOnly
  78. If Attr and Hidden Then Attr=Attr-Hidden
  79. If Attr and System Then Attr=Attr-System
  80. ResetAttrib=Attr
  81. End Function
  82. '--------------------------------------------------------------------


 
source: http://www.bellamyjc.net/fr/vbsdow [...] kupspecial


Message édité par jackyl le 23-12-2004 à 17:11:19
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed