[vb 6] ottenere nomi di tutte le cartelle che risiedono in una directori

[altrencatè]

ciao, mi servirebbe sapere come ottenere il nome di tutte le cartelle contenenti un una directory, e mettere i nomi in fila accanto ad un checkbox...
è un progetto per scegliere la skin da mettere al programma, basta sapere i nomi delle cartelle e sceglierle poi il codice di salvataggio in un file ini è gia fatto........
grazie 2000

[RAVALON]

semplicemente utilizza il comodo controllo DirListBox! gli passi il path della dir principale e ti trova tutte le sottodir....da li le puoi estrarre con un ciclo...

[Mabi]

Oppure usi la funzione Dir insieme alla GetAttr:

Const Root = "C:\"
Dim FileName As String

FileName = Dir(Root, vbDirectory)
Do Until (Len(FileName) = 0&)
  If GetAttr(Root & FileName) = vbDirectory Then
    MsgBox FileName
  End If
  FileName = Dir
Loop

[altrencatè]

grazie ragazzi!!!