Private Sub Form_Load()
    Dim l As Long
 
    'pfad festlegen
    File1.Path = "c:\test"
    File1.Refresh
 
    'dateinamen in list1 kopieren,
    With File1
        For l = 0 To .ListCount - 1
            List1.AddItem .List(l)
        Next l
    End With
End Sub
 
Private Sub Command1_Click()
    On Error GoTo Form1_Command1_Click
 
    Dim l As Long
    Dim Extension As String
    Dim DateiOld As String
    Dim DateiNeu As String
    Dim Pfad As String
 
    'pfad einstellen
    Pfad = File1.Path & "\"
 
    With List1
        For l = 0 To .ListCount - 1
            'extension ermitteln
            Extension = "." & Right(.List(l), Len(.List(l)) - InStrRev(.List( _
              l), "."))
            'alten dateinamen ermitteln
            DateiOld = .List(l)
            'neuen dateiname festlegen
            DateiNeu = CStr(l) & Extension
            'umbenennen
            Name Pfad & DateiOld As Pfad & DateiNeu
            'wenn die umbenannte datei nicht exsitiert, dann trat ein fehler 
            ' beim umbenennen auf
            If Dir(Pfad & DateiNeu) = "" Then
                MsgBox "Fehler beim umbenennen der Datei: " & DateiOld & " in " _
                  & DateiNeu, vbExclamation, "Umbenennen"
            End If
        Next l
    End With
 
    Exit Sub
Form1_Command1_Click:
    MsgBox Err.Number & " " & Err.Description, vbExclamation, _
      "Form1_Command1_Click"
End Sub