filesystemobjet - copie et suppression de fichiers et répertoires

Bonjour,
je voudrais pouvoir copier les fichiers d'un répertoire donné et supprimer des répertoires, seulement j'ai des problèmes puisque je n'arrive n'y arrive pas du tout. est-ce que quelqu'un pourrait me dire où se trouvent les erreurs s'il-vous-plaît.

Code:

If MsgBox("le répertoire " & MakeLongFileName(strdoc, strLibelléClientForRep) & vbCrLf & " pour la gestion des documents client n'existe pas," & vbCrLf & "voulez-vous le créer?", vbQuestion + vbYesNo, "Paramétrage") = vbYes Then            'Dim chemin As String             MkDir (MakeLongFileName(strdoc, Trim$(strLibelléClientForRep)))             Dir1.Path = (MakeLongFileName(strdoc, Trim$(strLibelléClientForRep)))             'Je rafraîchis l'arborescence             Dir1.Refresh             'Le chemin se positonne             Dir1.Path = (MakeLongFileName(strdoc, Trim$(strLibelléClientForRep)))             txtDocument.Text = Dir1.Path                         'les problèmes viennent d'ici             'Copie les fichiers de l'ancien répertoire vers le nouveau.             Dim PathName As String             Dim PathFileName As String             Dim CurrFileName As String             MsgBox chemin             MsgBox Dir1.Path             PathName = File1.Path + "\"             PathFileName = PathName & "*.vsd"             Dim fso As FileSystemObject             MsgBox "a"              CurrFileName = Dir(PathFileName)             Do While CurrFileName <> ""                 Set fso = New FileSystemObject                 MsgBox "1"                 fso.CopyFolder "Dir1.Path", "chemin", True                 MsgBox "2"             Loop             Set fso = Nothing             'Supprime l'ancien répertoire.             Dim fso2 As FileSystemObject             Set fso2 = New FileSystemObject             MsgBox "3"             'La valeur True passée au deuxième paramètre permet de supprimer le répertoire dans le cas où il aurait l'attribut lecture seule.             'Ce paramètre est optionnel, et a la valeur False par défaut.             fso2.DeleteFolder "chemin", True             MsgBox "4"             Set fso2 = Nothing             MsgBox "5"

merci beaucoup

Pour copier un répertoire: Dim fso As FileSystemObject Set fso = New FileSystemObject fso.CopyFolder "c:\sources", "c:\oldsources", True Set fso = Nothing Pour supprimer un repertoire: Dim fso as FileSystemObject Set fso = New FileSystemObject fso.DeleteFolder "c:\temp", True pour plus d infos voir : http://vb.developpez.com/faq/?page=Fichiers