[VB]Récupérer une liste de fichiers

Bonjour,

Je suis amateur dans la programmation VB et j'ai un projet assez balaise pour un stage.

J'aimerais pour le moment créer un fichier contenant tous les noms des fichiers ayant comme extension pdf et doc dans un répertoire et ses sous répertoires.

Pouvez vous m'aider SVP ?

Merci !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Function FindFiles(ByVal Repertoire As String, ByVal Extension As String) As String() ' recherche tout les document du repertoire avec l'extention voulu Dim test As String, cmpt As Integer, tabTemp() As String test = Dir(Repertoire & "*." & Extension) While test <> "" ReDim Preserve tabTemp(cmpt) tabTemp(cmpt) = test cmpt = cmpt + 1 test = Dir Wend FindFiles = tabTemp     End Function

---

voila pour un repertoire....

Merci !

En fait j'aimerais retourner les résultats dans un fichier et pouvoir scanner tous les sous répertoires en même temps. Par exemple en donnant en paramètre le répertoire parent, et qu'il mouline tout seul et écrive un fichier contenant les noms de fichiers résultant de la recherche.

http://vb.developpez.com/sources/?pa...onF#scanfolder