Dim F As Integer
Dim sFolder As String
Dim sPath As String
 
sPath = "c:\ordner1"
 
F = FreeFile
Open "d:\temp\test.txt" For Output As #F
 
sFolder = Dir$(sPath & "\*.*", vbDirectory)
Do While sFolder <> ""
  If sFolder <> "." And sFolder <> ".." Then
    If GetAttr(sPath & "\" & sFolder) And vbDirectory Then
      Print #F, sFolder
    End If
  End If
  sFolder= Dir$
Loop
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de