Option Explicit
 
Public Function Copy(ByVal sPathBegin As String, ByVal sSourceFolder As String)
 
Dim fso     As Object
Dim oRep    As Object
Dim oSubRep As Object
Dim oFolder As Object
Dim oFiles  As Object
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oRep = fso.GetFolder(sPathBegin)
 
    For Each oFolder In oRep.SubFolders
        If oFolder.Attributes <> 22 Then
            For Each oFiles In oFolder.Files
                fso.CopyFile oFiles.Path, sSourceFolder, False
            Next oFiles
        End If
 
        If bScanAdobe = True Then Exit For
    Next oFolder
 
    For Each oSubRep In oRep.SubFolders
        If bScanAdobe = True Then Exit For
        PDFScanRepAdobe oSubRep.Path, iIndexFolder
    Next oSubRep
 
    Set fso = Nothing
 
End Function