Transfer d'un Repertoire en entier

Question

je souhaite d&#233;placer un r&#233;pertoire entier vers un autre sou rep, le probl&#232;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&#233;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 !!!

cs_DARKSIDIOUS · Answer

Va voir ma source de copie d'un r&#233;pertoire avec barre de progression qui copie un dossier complet avec tout ses sous-r&#233;pertoire.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Transfer d'un Repertoire en entier

1 réponse

Discussions similaires