[VB6] Ciclare tutte le cartelle e sottocartelle

[*pao]

Ciao a tutti
Devo poter ciclare tutte le cartelle e sottocartelle di un disco.

esempio

  Set currFolder = oFso.GetFolder(Form1.txtFolder)
  For Each oFolder In currFolder.SubFolders
    'Operazioni sui files
  Next

nell'esempio sopra ciclo tutte le sottocartelle di Form1.txtFolder.

Ma se ad esempio txtFolder avesse a sua volta 3 sottocartelle, che contengono a loro volta altre sottocartelle, devo inserire un For Each dentro all'altro all'infinito???

Devo fare dei Goto?
penso si possa fare anche senza, se qualcuno di voi sa già come fare...
grazie

[alka]

Manca il linguaggio e la versione nel titolo della discussione.

[kalosjo]

Linguaggio e versione devono essere mensionati nel titolo etc.....etc......etc.....

Prima che alka lo venga a sapere.....

[kalosjo]

Originariamente inviato da alka
Manca il linguaggio e la versione nel titolo della discussione.

Azzz.... mi ha anticipato....

[alka]

Originariamente inviato da kalosjo
Azzz.... mi ha anticipato....

In fondo, è il mio dovere.

Non mi sembra utile però aggiungere interventi che non hanno nulla a che vedere con la discussione.

Ciao!

[kalosjo]

Originariamente inviato da alka
Non mi sembra utile però aggiungere interventi che non hanno nulla a che vedere con la discussione.

[*pao]

AZZ MI SONO DIMENTICATO

VB6

[kalosjo]

Utilizza la funzione Dir

[alka]

Originariamente inviato da *pao
Devo poter ciclare tutte le cartelle e sottocartelle di un disco.

Tenendo per buono l'esempio di codice che hai indicato, credo che l'implementazione ottimale sarebbe quella ricorsiva, scrivendo una funzione che restituisca, in qualche modo, l'albero delle directory appartenenti ad una determinata cartella passata come parametro (oggetto Folder).

Per ciascuna cartella individuata all'interno della cartella di riferimento, richiami la funzione stessa passando la cartella n-esima come parametro e così via, fino ad arrivare ad ottenere un percorso completo all'esaurimento delle cartelle disponibili all'interno della cartella iniziale.

Purtroppo, non posso fornirti altro che una spiegazione teorica del meccanismo poichè non programmo abitualmente in VB.

Ciao!

[*pao]

la funzione Dir mi restituisce le sottocartelle di una certa cartella.

fin lì c'ero anche col filesystemobject.

il problema è che ciclo mi devo costruire per andare a recuperare N livelli di sottocartelle