LISTING DE FICHIERS ET RÉPERTOIRES (FONCTION RÉCURSIVE)

'# Liste dans un fichier texte l'ensemble des repertoires, sous repertoires
'# et fichiers contenu dans un dossier.



'# Fonction recursive
Sub listingSousDossiersRecur(objListRep, cheminBranche)

    oFichierTXT.WriteLine("## Entrée dans le répertoire " & cheminBranche)

    '# Listing des fichiers
    Set pFichier  = oFSO.GetFolder(cheminBranche)
    Set cFichiers = pFichier.Files
        
    For Each fichier in cFichiers
        oFichierTXT.WriteLine(cheminBranche & "\" & fichier.Name)
    Next

    '# Listing des sous-dossiers + appel recursif
    For Each oSousRep In objListRep        
        Set objListSousRep = oSousRep.SubFolders
        Call listingSousDossiersRecur(objListSousRep, _
                                      cheminBranche & "\" & oSousRep.Name)
    Next
     
End Sub




Set oFSO = CreateObject("Scripting.FileSystemObject")

'# Pointeur sur le repertoire courant
Set oRepCourant = oFSO.GetFolder(".")

'# Creation du fichier texte
Set oFSO        = CreateObject("Scripting.FileSystemObject")   
Set oFichierTXT = oFSO.CreateTextFile ("Listing_" & oRepCourant.Name & ".txt", _
                                        True)



'# Ecriture du repertoire courant dans le fichier
oFichierTXT.WriteLine("RÉPERTOIRE SCRUTÉ : " & oRepCourant.Path)
oFichierTXT.WriteLine("")


'# Obtention d'une collection contenant l'ensemble des repertoire du dossier
Set oSousRep = oRepCourant.SubFolders


'# Appel d'une fonction recursive qui va lister l'ensemble des dossiers
'# contenu dans chaque sous-dossier
'Call listingSousDossiersRecur(oSousRep, oRepCourant.Name)
Call listingSousDossiersRecur(oSousRep, oRepCourant.Path)