Discussion :

[yaya54]

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 !

[ogenki]

Code :

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

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

[yaya54]

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.

[ThierryAIM]

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