Bonjour à tous
J'ai un bout de code pour faire de la copie de fichiers, qui marche très bien pour copier un répertoire dans un autre par exemple, mais là je viens de tomber sur un os : j'essaie de copier tout le contenu d'un CD vers un répertoire et il m'annonce un erreur : "Erreur d'exécution 5 : Argument ou appel de procédure incorrect". Pour plus de précisions, le bug arrive quand j'appelle la fonction avec comme 1er argument (dossier à copier) "E:\" qui est mon lecteur CD, sinon si je reste sur une source du genre C:\test\CD_test\ ca marche nickel...
Code :
- Function CopyFolder(folderpath As String, destfolderpath As String)
- ' fonction ayant pour arguments le répertoire d'origine et le répertoire de destination de la copie
- Dim fso As Object
- Dim fld As Object
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set fld = fso.GetFolder(folderpath)
- fld.Copy destfolderpath
- End Function
|
Si quelqu'un a une idée sur la provenance du bug, je suis très intéressé, parce que j'avoue que là...je ne comprends pas du tout ce qui le bloque
Bonne aprem à tous
DaBoos