Private Sub Form_Load()
 
    Call GetFiles("C:\Datas", Dir1, File1, Text1)
 
End Sub
 
Public Sub GetFiles(strPath As String, oDir As DirListBox, oFile As _
  FileListBox, oText As TextBox)
 
    Dim i As Integer
    Dim a As Integer
 
        oDir.Path = strPath
 
        ' Erster Ordner
        oFile.Path = oDir.Path
 
                ' Pfad wird in TextBox gespeichert
                oText.Text = oText.Text & oFile.Path & vbCrLf
 
                    ' Dateien aufschreiben
                    For i = 0 To oFile.ListCount - 1
                        oText.Text = oText.Text & oFile.List(i) & vbCrLf
                    Next i
 
 
        ' Unterordner
        For i = 0 To oDir.ListCount - 1
 
            oFile.Path = oDir.List(i)
 
                ' Pfad wird in TextBox gespeichert
                oText.Text = oText.Text & oFile.Path & vbCrLf
 
                    ' Dateien aufschreiben
                    For a = 0 To oFile.ListCount - 1
                        oText.Text = oText.Text & oFile.List(a) & vbCrLf
                    Next a
        Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.