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

 1224930 visiteurs

 11 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 7442 fois
Vous êtes ici :   Accueil » Lister les fichiers