Ho incontrato il seguente problema; dovrei leggere il Nome di una, o più, SubCartella/e contenute a loro volta da una SubCartella, per arrivare ai files contenuti.
Per intenderci CartellaPrincipale>SubCartella>SubCartella>Files.
Attualmente uso il seguente codice, che funziona bene nel caso di files contenuti in CartellaPrincipale>SubCartella>Files:
codice:
'Istanzia FileSystemObject:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Acquisisce il path della Cartella Principale d'Origine:
    Set vrtFx = FSO.GetFolder("D:\Test3\DATI")
    Set vrtSFx = vrtFx.SubFolders
    'Scorre ed acquisisce il Nome delle SubCartelle:
    For Each vrtFx1 In vrtSFx
        strSx = vrtFx1.Name
       'Percorso completo della SubCartella:
        MySubDir = vrtFx & "\" & strSx
            Set vrtFilx = vrtFx1.Files
            'Scorre ed acquisisce il Nome dei Files:
            For Each vrtFx2 In vrtFilx
                strSx2 = vrtFx2.Name
.... ....
Cosa dovrei fare, reiterare il ciclo
'Scorre ed acquisisce il Nome delle SubCartelle:
For Each vrtFx1 In vrtSFx
strSx = vrtFx1.Name
per arrivare al nome della SubSubCartella o esiste un modo più pratico. Se devo rieseguire il ciclo quale condizione dovrei inserire per eseguire l'ulteriore iterazione per non passare al ciclo Nome dei Files ?
Per intenderci:
For Each vrtFx2 In vrtFilx
strSx2 = vrtFx2.Name


Spero d'essermi spiegato.
Cordialità.