[VBA]-Liste de tous les fichiers du disque

blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   -  
 guiguite -
Bonjour,

je cherche le moyen de lister en VBA l'intégralité des fichiers présents sous une arborescence (sous-répertoires inclus). En gros, l'équivalent de la commande DOS : DIR /S /B

J'ai essayé avec la fonction shell("command.com"), mais command.com n'accepte pas de paramètre, genre DIR, vu que la-dite commande DIR est interne au shell (pas d'exécutable).

Les commandes VB classiques dir, chdir ne me sont d'aucun secours car elles ne sont pas récursives et je ne me vois pas gérér un nombre inconnu de listes de tailles inconnues... (problème du non-récursif).

Je souhaite faire ça en VBA (dans ACCESS), mais je ne veux pas utiliser d'OCX, ni d'api non-standard. Je me contenterais de l'api win32 standard :-)

Même une liste créée dans un fichier que je relit me suffirait...

Si quelqu'un avait un début de piste, ça m'aiderait bien... je galère depuis une bonne demi-journée...

Merci d'avance !

A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
A voir également:

4 réponses

kcinnad Messages postés 171 Date d'inscription   Statut Membre Dernière intervention   51
 
Juste pour remonter un sujet de 6ans!
1
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
ben, comme j'ai posté vendredi soir, et que le week-end est passé par dessus, je remonte le post pour voir s'il y a des amateurs... :-)

A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
une Question...
Est-ce qu'il y a un vide grenier sur CCM ce week-end?
0
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   435
 
Bonjour,
Je n'ai pas access sous la main mais je joins un fichier Excel contenant une macro ListeFichiers qui devrais t'aider (utilisation de Office.FileSearch + FSO)....
http://www.cijoint.fr/cjlink.php?file=cj200907/cijaLLKTxZ.xls
Bonne journée
0
guiguite
 
merci !!!!!!!!!!!!!
0