Private Sub Dir1_Change()
  On Error Resume Next
  File1.Path = Dir1.Path
 
  Dim i As Long
 
  Text1.Text = ""
  With File1
    For i = 0 To .ListCount - 1
      Text1.Text = Text1.Text & .List(i) & vbCrLf
    Next i
  End With  
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de