Fichier moins de 100 ko vb6

Private Sub scanAllFolder(ByVal pFullPathFolder As String)  'pFullPathFolder = chemin complet du répertoire
Dim dossier As Folder
Dim ofso As FileSystemObject
Dim myTab()   ' Tableau où sont stockés les chemins et noms des fichiers

    Set ofso = New FileSystemObject
    Set dossier = ofso.GetFolder(pFullPathFolder)
    Call checkFolder(dossier, myTab())  'Appel de la fonction récursive pour parcourir les fichiers et sous dossiers du répertoire
    Set ofso = Nothing
    
End Sub

Private Sub checkFolder(ByVal dossier As Folder, ByRef mTab())
Dim fichier As File
Dim sousdossier As Folder
Dim max As Long

    'Si c'est un fichier on le stock dans le tableau mTab()
    For Each fichier In dossier.Files
        'Redimensionnement du tableau et affection de nom du fichier
        ReDim Preserve mTab(max)
        mTab(max) = fichier
        max = max + 1
    Next
    
    'Appel récursif de la fonction si c'est un sous dossier
    For Each sousdossier In dossier.SubFolders
        Call checkFolder(sousdossier, mTab())
    Next

End Sub