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

 1222538 visiteurs

 8 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 : - Fichiers
Page lue 7434 fois
Vous êtes ici :   Accueil » Lister les fichiers