Transfer d'un Repertoire en entier

Signaler
Messages postés
10
Date d'inscription
lundi 13 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
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

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
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/