sauvegarde de fichiers

Question

bonjour
commercial souvent en d&#233;placement je souhaite faire une sauvegarde de mes fichiers de mon reseau sur mon portable sans bien sur &#233;craser les fichiers non modifi&#233;s d&#233;ja en place sur le portable

la manip existe sous dos copy g:/toto/*.* c:/tata/     /????

existe elle avec VBA sous excel ?

je n'arrive pas &#224; trouver le bon code pour &#233;viter de recopier l'ensemble des fichiers du rep source!

michelxld · Answer

bonjour


j'espere que cet exemple pourra t'aider


Sub copierRepertoires_Et_SousRepertoires()
'activer la reference Microsoft scripting Runtime
Dim Fso As Scripting.FileSystemObject
Dim Source As String, Destination As String

Set Fso = CreateObject("Scripting.FileSystemObject")

Source = "C:\Documents and Settings\michel\dossier\general\excel"
Destination = "D:\monRepertoire"

'False/True option pour &#233;craser les fichiers
Fso.CopyFolder Source & "\*", Destination, False
Fso.CopyFile Source & "\*", Destination, False
End Sub

bonne soiree
michel

gibon084 · Answer

ok  merci beaucoup 

comment fait on maintenant le lendemain  pour resauvegarder ces fichiers mais seulement ceux ayant &#233;volu&#233;
afin de ne pas recopier l'ensemble de ces repertoires.

lol

Sauvegarde de fichiers

2 réponses

Discussions similaires