Transfer d'un Repertoire en entier

patrizio77 Messages postés 10 Date d'inscription lundi 13 novembre 2000 Statut Membre Dernière intervention 12 juillet 2005 - 8 juil. 2005 à 16:23
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 8 juil. 2005 à 19:33
je souhaite déplacer un répertoire entier vers un autre sou rep, le problème c'est que mon code transfert uniquement les fichiers du repertoire :
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

If Dir$(App.Path & "\PC22.*.ged") <> "" Then
RepPC22 = Dir(App.Path & "\PC22.*", vbDirectory)
Archi = Dir(App.Path & "\Archi", vbDirectory)


fs.CopyFolder App.Path & "" & RepPC22, App.Path & "" & Archi
End If

je voudrai envoyer le répertoire en entier dans le rep Archi , qui contiendra plusieur sou rep de meme type. Si quelqun me trouve la solution miracle , c sensas, i me manke plus ke ca pour finir mon logiciel !!!

1 réponse

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
8 juil. 2005 à 19:33
Va voir ma source de copie d'un répertoire avec barre de progression qui copie un dossier complet avec tout ses sous-répertoire.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
0