Compléments pour Microsoft Access

Description

		Cette fonction permet de copier tous les fichiers d'un répertoire dans un autre répertoire.

Synthaxe

CopyFileDir (strDir, strDirDest)

La synthaxe de la fonction CopyFileDir 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.
strDirDest	Expression de chaîne correspondant au nom du répertoire de destination des fichiers.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function CopyFileDir(strDir As String, strDirDest 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))
            FileCopy strDir & "" & strFile, strDirDest & "" & strFile
        Next
    End If
End With

End Function

Copier fichier d'un répertoire (Fichier)