Private Sub Ueberpruefung()
   Dim Zielpfad As String
   Dim f As Long
   With File1
      .ListIndex = 0
      For f = 0 to .ListCount - 1
         .ListIndex = f
         If UCase(Right(.Filename, 4)) <> ".DAT" Then
            Zielpfad = "C:testOrdner" & .Filename
            Name .Path & "" & .Filename As Zielpfad & "" & .Filename
         End If
      Next f
   End With
End Sub