Dim Zaehler As integer
 
Dim Dateiname As String
 
Dim Datei As File
 
Dim FSO As FileSystemObject
 
Zaehler = 1
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Dateiname = Dir(QuellPfad, 7)
 
Do While Dateiname <> ""
 
          Set Datei = FSO.GetFile("C:\test\" & Dateiname)
 
          Datei.Name = (Zaehler) & ".rtf"
 
          Zaehler = Zaehler + 1
 
          Dateiname = Dir
 
Loop
 
Set Datei = Nothing
Set FSO = Nothing