Copier les fichiers d'un répertoire

Ce code permet de copier tous les fichiers d'un répertoire dans un autre répertoire.

L'argument "strDir" représente le répertoire source à copier, et l'argument "strDirDest" représente le répertoire de destination des fichiers.

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

Auteur : Jessy SEMPERE