[VBA] Access - Lister fichiers d'un répertoire

Option Compare Database

 
Dim requete As String

Dim base As Database

Dim chemin As String

 
' ---

' AFFICHAGE DU CONTENU D'UN DOSSIER

' ---

'

Sub ContenuDuDossier(ByVal strDossier As String)

    Dim strFichier As String

 
    'Vérifier que le dossier existe bien

    If Dir(strDossier, vbDirectory) = "" Then

        MsgBox "Dossier introuvable !", vbExclamation

        Exit Sub

    End If

 
    'Lister tous les fichiers du dossier

    strFichier = Dir(strDossier, vbNormal)

    While strFichier <> ""

 
    'Se connecter à la base de données

    chemin = "U:\LogOsi\PROJETS\Projet BUR WOP\WOP Conversion\BDD_WOP.accdb"

    Set base = DBEngine.OpenDatabase(chemin)

 
    'Afficher le nom du fichier

    requete = "INSERT INTO Test (nom_fic, loc_fic) VALUES ('" & strFichier & "', '" & strDossier & "')"

    'Déclaration du recordset

    base.Execute (requete)

 
    strFichier = Dir

 
  Wend

End Sub