Re^8: Hat ( natürlich ) geklappt, aber

Hallo Jorge,

das hat also geklappt,

prima, freut mich.

aber eigentlich kann das ja nicht sein,
dass ich alle Dateien umbenennen muss.
Ich wollte für meine liebsten kleinen Sohn Eragon aufnehmen;
das sind um die 15 CDs mit was weiß ich wie vielen Dateien.
Die kann ich doch nicht alle umbenennen!!??

Warum nicht? Manuell natürlich nicht, für so etwas gibt es Programme. Freeware oder schnell selbst schreiben, mit VBS zum Beispiel ...


Option Explicit

dim FSO, PathObject, FileObject, FileNow, Quellpfad, Zielpfad, ZielName, Ziel, n, ed

QuellPfad = "C:\Temp\"
Zielpfad = "C:\Temp\Neu\"
ZielName = "Datei"

Set FSO = CreateObject("Scripting.FileSystemObject")
   
    Set PathObject=FSO.getFolder(QuellPfad)
    Set FileObject=PathObject.Files   

    For Each FileNow In FileObject
	n = n + 1
	ed = right(Filenow, 4)
	Ziel = Zielpfad + ZielName + Right("0000" + CStr(n) ,4) + ed
	FSO.CopyFile FileNow, Ziel
    Next

... oder so ähnlich.

Das läuft jedenfalls. In's Notepad kopieren, die richtigen Pfade eintragen (Temp ist nur als Beispiel) aber das siehst Du ja, mit der Endung .VBS abspeichern (Aufpassen! Nicht als Txt sonst musst Du es erst noch umbenennen.) Doppelt anklicken, fertig.

Alles klar?

(Für die Kritiker, ja, die Variablen könnten schönere Namen haben, ich wollte aber nichts erklären, es soll ja nur laufen.)

Gruß, Rainer