Recherche
Recherche
Les mémos
Je débute...
Visites

 1000538 visiteurs

 1 visiteur en ligne

Lister les fichiers contenus dans un dossier (et sous-dossiers)

Pour alimenter une zone de liste, on écrira par exemple :
 

Me!LaListe.RowSource = fListFiles("C:\")

ou

Me!LaListe.RowSource = fListFiles("E:\Images\", True)

La fonction :

Function fnListFiles(strDir As String, Optional SubDir As Boolean = False) As String
    Dim intFile As Integer
    intFile = 0
    With Application.FileSearch
        .LookIn = strDir
        .SearchSubFolders = (SubDir = True)
        .FileName = "*.*"
        If .Execute > 0 Then
            For intFile = 1 To .FoundFiles.Count
                fnListFiles = IIf(fnListFiles = "", .FoundFiles(intFile), _
                                  fnListFiles & ";" & .FoundFiles(intFile))
            Next intFile
        End If
    End With
End Function


Catégorie : Les mémos - Fichiers
Page lue 6313 fois