Enregistrer le nom des fichiers d'un répertoire dans une table

Ce code permet d'enregistrer le nom de tous les fichiers d'un répertoire dans une table.

L'argument "strDir" représente le répertoire contenant les fichiers, l'argument "strTable" représente le nom de la table de destination et l'argument "strField" représente le nom du champ de la table.

Function FileExistDir(strDir As String, _
    strTable As String, strField As String)

Dim intFile As Integer
Dim strFile As String

intFile = 0: strFile = ""

With Application.FileSearch
    .LookIn = strDir: .FileName = "*.*"
    If .execute > 0 Then
        For intFile = 1 To .FoundFiles.Count
            strFile = .FoundFiles(intFile)
            strFile = Right(strFile, Len(strFile) - (Len(strDir) + 1))
            CurrentDb.execute "INSERT INTO [" & strTable & "] " _
                & "([" & strField & "])" _
                & "SELECT """ & strFile & """ ;"
         Next
    End If
End With

End Function

Auteur : Jessy SEMPERE