Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

º Copier fichier d'un répertoire

Noms de fichiers d'un répertoire dans une table
º Sauvegarder fichier
º Sélectionner fichier
º Sélectionner répertoire
º Vérifier existence

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

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

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éments	Description
strDir	Expression de chaîne correspondant au nom du répertoire qui contient les fichiers que l'on souhaite copier dans la table.
strTable	Expression de chaîne correspondant au nom de la table de stockage.
strFied	Expression 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