Copier-ecraser des fichiers ou dossiers

hassan.zer · 12 Mai 2010

bonsoir,

je souhaite réaliser une sauvegarde de fichiers par copier-ecraser mais je n'arrive pas a faire cela, auriez-vous une idée ?

J'utilise pour copier

Dim FSO As New FileSystemObject
FSO.CopyFolder "C:\Gestion classe\", Cells(2, 9).Value, OverwriteExisting

merci

JNP · 12 Mai 2010

Re : Copier-ecraser des fichiers ou dossiers

Bonsoir Hassan.Zer ,
En principe, en modifiant les chemins tests que j'ai mis

Code:

Sub Test()
Dim Objet As Object
Set Objet = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Kill "D:\temp\Test.xls"
On Error GoTo 0
Objet.movefile "C:\temp\Test.xls", "D:\temp\Test.xls"
End Sub

te permettra de faire un déplacement du fichier

Code:

Sub Test2()
Dim Objet As Object
Set Objet = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Kill "D:\temp\Test.xls"
On Error GoTo 0
Objet.copyfile "C:\temp\Test.xls", "D:\temp\Test.xls"
End Sub

te permettras de sauvegarder le fichier, chacun en écrasant tout fichier précédent.
Attention, sans possibilité de marche arrière et sans message d'avertissement...
Bonne soirée

Copier-ecraser des fichiers ou dossiers

hassan.zer

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Discussions similaires