Mit VB Dateien umbenennen

Hi,

ich habe einen Ordner mit rund 2000 Dateien, alle dateien fangen mit 0001 od. 001 usw. an(durchlaufend nummeriert!). Jetzt möchte ich die Dateien so umbenennen, dass die ersten vier bzw. ersten drei Zeichen entfernt werden. Am liebsten würd ich das mit Visual Basic machen. Hat jemandeinen Tip für mich, wie das ganze funktionieren könnte.
Ich weiß, dass ich mit Name c:\1.txt As c:\2.txt die Dateien umbenennen kann,
aber wie entferne ich die ersten 3 oder 4 Zeichen?

greetz

hitrotisch

Versuchs mal mit

   sPath = D:\
   
   fname = Dir(sPath & *.*, vbNormal)
   Do While fname <>
       sAnfang = Left(fname, InStr(fname, .) - 1)
       sende = Mid(fname, InStr(fname, .))
       Name sPath & fname As Val(sAnfang) & sende
       fname = Dir
   Loop

Timo

Klammer vergessen 8)