Mit VB Dateien umbenennen

Dieses Thema Mit VB Dateien umbenennen im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von hitrotisch, 5. Aug. 2005.

Thema: Mit VB Dateien umbenennen Hi, ich habe einen Ordner mit rund 2000 Dateien, alle dateien fangen mit 0001 od. 001 usw. an(durchlaufend...

  1. 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
     
  2. 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
     
  3. Code:
    Datei = C:\1.txt
    Datei = Split(Datei, \) Ubound(Split(Datei, \))
    ' Datei wird mit 1.txt ausgegeben. Egal wie das Verzeichnis lautet.
    
    Timo
     
  4. Klammer vergessen 8)

    Code:
    Datei = C:\1.txt
    Datei = Split(Datei, \) (Ubound(Split(Datei, \)))
    
    
     
Die Seite wird geladen...

Mit VB Dateien umbenennen - Ähnliche Themen

Forum Datum
Wie Dateien umbenennen und Verknüpfungen behalten?? Windows 7 Forum 15. Okt. 2013
Batch - Dateien umbenennen Windows XP Forum 24. Mai 2011
Mehrere Dateien in Ordnern umbenennen (1 Datei pro Order, -> Ordnername.avi) Windows XP Forum 27. Mai 2010
VBA - Alle Dateien in Verzeichnis umbenennen Webentwicklung, Hosting & Programmierung 30. März 2009
Dateien "Fotos" Im Win- Explorer Umbenennen, fortlaufend Nummerieren mit Dezimal Windows XP Forum 13. Jan. 2008