Finding ONLY directories..

[marnitzg]

Private Sub Command1_Click()
Dim X As String
Const Pth = "C:\"

X = Dir(Pth, vbDirectory)
While X <> ""
    If (GetAttr(Pth & X) And vbDirectory) = vbDirectory Then
        List1.AddItem X
    End If
    X = Dir()
Wend
End Sub

This should work.