Compléments pour Microsoft Access

http://access.fr.free.fr/

Noms de fichiers d'un répertoire dans une table (Fichier)

Description 

Cette fonction permet de copier tous les noms de fichiers d'un répertoire dans une table de la base de données en cours.

 
Synthaxe 

FileExistDir (strDir, strTable, strField)

La synthaxe de la fonction FileExistDir comprend les éléments suivants :

ElémentsDescription

strDir

Expression de chaîne correspondant au nom du répertoire qui contient les fichiers que l'on souhaite copier dans la table.
strTableExpression de chaîne correspondant au nom de la table de stockage.
strFiedExpression de chaîne correspondant au nom du champ de la table de stockage.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


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