En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218275 visiteurs

 12 visiteurs en ligne

Nous contacter

Contact

Lister les fichiers

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 7412 fois

Vous êtes ici :   Accueil » Lister les fichiers