Visual Basic 6 - Dirlistbox directory successiva

Salve vi pongo un ennesimo problema:
avendo in un form un commandbutton ed un dirlistbox come posso fare che se premuto il pulsante passi alla directory successiva anche se ci fossero delle sottocartelle? grazie anticipatamente

Devi imparare a spiegare meglio i tuoi problemi ...

Non si capisce cosa tu voglia fare ...

SCUSATE A TUTTI...cmq vorrei che appena premuto il pulsante si selezioni la directory successiva dell drivelistbox....in pratica mi serve questo comando per metterlo succesivamente in un timer che indichi anche attraverso l'uso di un filelistbox un report di tutti i file contenuti in una unita...scusate se non sono stato ancora chiaro....

Se ho capito bene, ti serve la riga

Dir1.ListIndex = Dir1.ListIndex + 1

ma non e' cosi' che si attraversa un ramo del file system ... Dovresti scrivere una funzione ricorsiva che usi la funzione Dir$ oppure usare il FileSystemObject (FSO) ...

bhe in fin dei conti e questo che volevo dire...ma questo e come se simuli il click sulla voce successiva della dirlistbox, sarebbe possibile simulare il doppio click?cosi da "aprire" la cartella facendomi vedere se ci fossero sotto directory e cosi via.....Sicuramente nn mi sono spiegato bene cmq GRAZIE

dir1.path = PERCORSODAAPRIRE

Paperoga nn e cosi perche io nn so il percorso perche sara soggettivo per ogni utente che utilizza il programma...voorei sapere come generare il doppio click attraverso un commandbutton sulla dirlistbox sulla cartella successiva e/o sotto directory....GRAZIE lo stesso

avevo fatto (molto) tempo fa qualcosa di simile
in ricorsione.
una mazzata da oltre un minuto per la CPU.
Molto meglio gli FSO.

Private Sub Analize(DPath As String)
Dim x As Integer
level = level + 1
Dir1.Path = DPath

'codice da fare in questa cartella

If Not Dir1.ListCount = 1 Then
    For x = 0 To Dir1.ListCount - 1
        Analize (Dir1.List(x) & "\")
    Next x
End If
If Not Dir1.Path = "c:\" Then Dir1.Path = ".."
level = level - 1
End Sub