[VBA - E] Copie de répertoires

Bonjour,

je liste dans une listbox toute une liste de répertoires.

Une fois un répertoire sélectionner, comment faire pour copier ce répertoire ainsi que tous les fichiers qu'il contient dans un emplacement prédéfini ?

Peut on passer par les fonctionnalités DOS ? Autre solution ?

Merci par avance

Passer par le dos est la meilleure solution

Code:

---

1 2 3

Call Shell("cmd /c P:\") Call Shell("cmd /c MD p:\MesFichiers") ' crée le répertoire MesFichiers Call Shell("cmd /c xcopy P:\xls P:\MesFichiers\") 'copie le répertoire

---

A+

NB - si tu utilises des variables

Code:

---

1 2	Call Shell("cmd /c MD " & NouveauRep) ' crée le répertoire MesFichiers Call Shell("cmd /c xcopy " & AncienRep & " " & NouveauRep) 'copie le répertoire

---

en plaçant microsoft scripting runtime en référence :

Code:

---

1 2 3

Dim fso As New FileSystemObject fso.CopyFolder "P:\xls", "P:\MesFichiers\"

---

Merci bbil.
Pour ma propre culture,
- ton code (qui est naturellement préférable au mien) fonctionne-t-il sur VBA 97 ?
- crée-t-il le nouveau répertoire ?
Par avance, merci

pour ce qui est de VBA 97 je manipule pas trop.. mais si tu as habituellement accés au nombreuse fonctions utilisant "Microsoft Scripting runtime" sur le forum cela devrai être bon pour celle la aussi...

oui le répertoire est créé ..

CopyFolder posséde en plus un troisiéme paramétres ..qui à vrai ( valeur par défaut) écrase les fichiers de même nom.

Ok bbil, merci.

Bonjour ouskel'n'or, Bonjour bbil,

voici donc le code que j'ai saisi à partir de variables :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim FSO as new FileSystemObject   [...]   RepDépart = "C:\...\En cours" & "\" & lstMaListe.Value RepDest = "C:\...\Terminées" & "\"   FSO.CopyFolder "RepDépart", "RepDest"

---

Mais cela me fournit un message d'erreur. Quelle est l'erreur que j'ai commise ?

Citation:

---

Envoyé par sat478

Bonjour ouskel'n'or, Bonjour bbil,

voici donc le code que j'ai saisi à partir de variables :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim FSO as new FileSystemObject [...] RepDépart = "C:\...\En cours" & "\" & lstMaListe.Value RepDest = "C:\...\Terminées" & "\" FSO.CopyFolder "RepDépart", "RepDest"

---

Mais cela me fournit un message d'erreur. Quelle est l'erreur que j'ai commise ?

---

c'est quoi le message d'erreur ..?

sinon pourquoi met tu des " autour de tes variables ...enléve les..!