comment copier un répertoire totalement

Question

Salut je voudrais savoir quel est le code qui permet de copier un r&#233;pertoire totalement cad lui= sous repertoire si ya fichier dans chaque r&#233;pertoire.
J'ai regarder sur le forum et sur le code source ya beaucoups de chose mais sa ne parle que d'un fichier &#224; la fois moi se que je voudr&#233; ses tout d'un cout car si je doit copier 321 fichier ss parler du reste g pas fini. Dc je voudr&#233; savoir si il n'y a pas un code qui copie atutomatiquement ts le r&#233;pertoire ss que ce soit manuel. merci

BasicInstinct · Answer

'lut

Private Sub CopierDossier(Origine As String, Destination As String)
   Dim fs
   Origine = Origine & "*"
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.CopyFolder Origine, Destination
   Set fs = Nothing
End Sub

cs_Miss1 · Answer

Merci je vais essayer pour voir ci j'arrive a le faire fonctionner. 
Tant que j'y suis si dans un repertoire il y a 9 fichier tu ne connaitrai pas un moyen  pour ouvrir un par un les dossiers.

econs · Answer

Les ouvrir avec un explorateur Windows ??


Manu

cs_Miss1 · Answer

en vrais je vais expliquer je dois un logiciel et la seul chose de visible pour les personne c le dirlist et un bouton ok. dc si on veut ouvrir je ne connais pas vraiment l'explorateur windows dans vb6 dc c pour sa . je ne demande pas un code mais une m&#233;thode.

cs_Miss1 · Answer

en vrais je vais expliquer je dois un logiciel et la seul chose de visible pour les personne c le dirlist et un bouton ok. dc si on veut ouvrir je ne connais pas vraiment l'explorateur windows dans vb6 dc c pour sa . je ne demande pas un code mais une m&#233;thode.

cs_rt15 · Answer

Pour ouvrir avec l'explorateur windows :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Form_Load()
Call ShellExecute(0, "open", "h:", vbNullString, vbNullString, vbNormalFocus)
End Sub

M'enfin, je sens bien que je répon à côté de la plaque...

Si tu as un FileListBox, tu peux utiliser la propriété multiselect pour permettre de sélectionner plusieurs fichiers.

OneHacker · Answer

Je te metrai le code en VB.Net apr&#232;s t'essayera de retranscrire en VB6 mais d'abord dis moi quel sera la cible : un dossier ? Ou une collection string de chaque fichier cible ?

Redman

cs_Miss1 · Answer

un dossier et ses sous dossiers avec ses photos et ses documents 

merci

Comment copier un répertoire totalement

8 réponses

Discussions similaires