erreur copie de repertoire [Résolu]

[lounacou]

Bonjour,

j'ai creé un bouton pour enregistrer un repertoire et sous reprtoire dans un autre: voici le code

Code :

1
2
3
4
5
6
7
Private Sub Commandesauvegarde_Click()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFolder "c:\Dropbox\Dossiers\", "c:\dossiers secours", True
Set fso = Nothing
 
End Sub

quand je clique sur ce bouton il m'affiche "Erreur de compilation" " Type défini par l'utilisateur non défini" et il selectionne en bleu fso As FileSystemObject

merci de votre aide

[Orion34080]

Ceci fonctionne chez moi :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Commandesauvegarde_Click()
   Dim FSO, f
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.getfolder("c:\Dropbox\Dossiers")
 
   f.Copy "c:\dossiers secours"
 
End Sub

Eventuellement si tu as à copier dans un sous répertoire qui n'existe pas n'existe pas, tu peux le créer auparavent.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commandesauvegarde_Click()
   Dim FSO, f, Statut
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.getfolder("c:\Dropbox\Dossiers")
 
   Statut = FSO.CreateFolder("dossiers secours")
   Statut = FSO.CreateFolder("c:\dossiers secours\Sauvegarde1")
 
   f.Copy "c:\dossiers secours\Sauvegarde1"
 
End Sub

Bon Il y a sans doute plus simple... mais ceci a l'air de fonctionner.

Michel

[lounacou]

Ok ça marche
j'ai crée les sous repertoire manuellement.

merci.
A+

[lounacou]

j'ai je copie le contenu dans une unité de disque "D" ce code est-il correcte:

Code :

1
2
3
4
5
6
7
8
9
Private Sub Commandesauvegarde_Click()
   Dim FSO, f
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.getfolder("c:\Dropbox\Dossiers")
 
   f.Copy "D:"
 
End Sub

[lounacou]

oh je me suis trompé , je veux faire la copie sur deux endroits differents en meme temps,
vous pensé que c'est correcte?

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Commandesauvegarde_Click()
   Dim FSO, f
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set f = FSO.getfolder("c:\Dropbox\Dossiers")
 
   f.Copy "c:\dossiers secours"
   f.Copy "D"
 
End Sub

merci

[Orion34080]

Ben si tu veux voir si c'est correct... teste le !
Mais ceci dit, si tu écris :

Code :

f.Copy "D:"

à la place de

Code :

f.Copy "D"

Je pense que cela devrait fonctionner... à tester !
Michel

[lounacou]

ok merci je teste et je te repond

[lounacou]

Re
Ok ça Fontionne,

merci
A+