[vb6] Cartelle e sottocartelle

[L'Aquila]

Ho provato con la dir e la getAttr ma mi dà, comunque, anche i file!

FileName = Dir(percorso & "\", vbDirectory)
Do Until (Len(FileName) = 0&)
  If (GetAttr(percorso & FileName) And vbDirectory) = vbDirectory Then
    a = GetAttr(percorso & FileName)
    MsgBox FileName
  End If
  FileName = Dir
Loop