Automatisches Umbenenne von Dateien

[saban]

Hallo, ich habe folgendes Problem:
ich bekomme per DFÜ täglich Dateien von mehreren Firmen geschickt. Der Dateiname dieser Dateien ist jedesmal der gleiche. Da ich diese Daten eine Weile sichern muß, muß ich diese Dateien jedesmal manuell umbenennen. Gibt es vielleicht Möglichkeit, diese Dateien automatisch umzubennen (evtl. unter DOS??). Nach Möglichkeit sollen die Dateien als Namen das aktuelle Datum + eine zweistellige Ziffer haben, zB. 01031101.for. Als DFÜ Programm benutze ich QModem. Danke für die Hilfe im voraus.
Gruß
Thunderhawk

[q3wert]

schade. ich hatte eine nette vbscript-datei, die das macht.
ich hab sie sicher aus versehen gelöscht.

*suche im netz*

nix.

------------------
<FONT size="0">Eine Hand wäscht die andere, also 1x auf das Banner klicken. <A HREF="http://q3wert.win2000helpline.com/nicht.htm" TARGET=_blank><IMG SRC="http://q3wert.win2000helpline.com/yelims/nuts.gif" border=0></A> &lt;-- das ist Sigi. Nicht auf ihn klicken.</FONT s>

[froelix]

Hi,
habe ich bei der CT gefunden: http://www.heise.de/ct/faq/result.xh...rds=umbenennen





Dateien per Skript umbenennen
Ich muss häufig den Namen von Da-teien um das aktuelle Datum ergänzen. Lässt sich diese eintönige Arbeit nicht irgendwie automatisieren?

Für derartige Aufgaben ist der Windows Scripting Host sehr gut geeignet. Ein entsprechendes Skript besteht nur aus wenigen Zeilen und könnte etwa so aussehen:

Set FS = CreateObject("Scripting.FileSystemObject")
FileName = Wscript.Arguments(0)
Prefix = Left(FileName, InStrRev(FileName, ".") - 1)
Postfix = Mid(FileName, InStrRev(FileName, "."))
Today = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2)
NewName = Prefix & "_" & Today & Postfix
FS.MoveFile FileName, NewName

Wenn Sie dieses Progrämmchen in einer Datei mit der Endung .vbs speichern (zum Beispiel als add_date.vbs), dann hängt es nach Aufruf das heutige Datum, getrennt durch ein ‘_’, an den als Parameter übergebenen Dateinamen an. Der Aufruf kann von der Kommandozeile oder in einer Batch-Datei über die Zeile

start add_date.vbs <Dateiname mit Pfad>

erfolgen. Dasselbe erreichen Sie, wenn Sie die umzubenennende Datei im Explorer per Drag & Drop auf add_date.vbs ziehen.

Wenn Sie die gleiche Funktion nicht für Dateien, sondern für Verzeichnisse benötigen, ändern Sie die letzte Zeile in FS.MoveFolder FileName, NewName. Das Auftrennen des Namens am Punkt ist dann in der Regel überflüssig.


Frölix