Discussion :

[ADbtr]

Bonjour,

je souhaite déplacer un fichier d'un répertoire à un autre. J'ai découvert la fonction : *.CopyFolder
J'ai bien ajouté la référence "Microsoft Scripting Runtime".

Cependant, mon code suivant renvoie le message d'erreur : "Erreur 76 : Chemin d'accès introuvable"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Procedure()
Dim Fso As Scripting.FileSystemObject
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.CopyFolder "C:\SUPERVISION\1.E-S\PARAMETRES\F2\2010\Temp\*", "C:\Essai", False
End Sub

Auriez-vous une réponse à ce problème?

Merci d'avance

ADbtr

[zyhack]

Bonsoir

en regardant sur ce lien CopyFolder

je pense qu'il faut que tu remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fso.CopyFolder "C:\SUPERVISION\1.E-S\PARAMETRES\F2\2010\Temp\*", "C:\Essai", False

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fso.CopyFolder ("C:\SUPERVISION\1.E-S\PARAMETRES\F2\2010\Temp", "C:\Essai", False)

[ADbtr]

Merci!

Fonctionne parfaitement!

Cordialement

ADbtr