Dim strPfad As String
Dim strOrdner As String
 
strPfad = "C:\WinNT"
 
strOrdner = Dir(strPfad & "\*.*", vbDirectory)
Do
    If (GetAttr(strPfad & "\" & strOrdner) And vbDirectory) = vbDirectory Then
        If strOrdner <> "." And strOrdner <> ".." Then
            List1.AddItem strOrdner
        End If
    End If
    strOrdner = Dir
Loop Until strOrdner = ""