Private Sub Command1_Click()
  With File1
    .Path = "c:\ordner"
    .Pattern = "*.*"
    .Refresh
 
    Dim i As Integer
    For i = 0 To .ListCount - 1
      Name .Path & "\" & .List(i) As .Path & "\" & .List(i) & ".doc"
    Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de