Discussion :

[sat478]

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

[ouskel'n'or]

Passer par le dos est la meilleure solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

[SfJ5Rpw8]

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.

[ouskel'n'or]

Ok bbil, merci.

[sat478]

Bonjour ouskel'n'or, Bonjour bbil,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SfJ5Rpw8]

Bonjour ouskel'n'or, Bonjour bbil,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..!