Script um dem Dateinamen das aktuelle Datum VORANzustellen

Hallo liebes Forum,
ich habe ein Problem:
Ich habe vor vielen Jahren mal ein Script von pc-welt (PLUSDATE.VBS) zum Umbenennen von Dateien besessen, mit dem ich sehr zufrieden war. Ich habe dieses script in den „SendTo“- Ordner von Windows kopiert und habe die Dateien so (das Datum vorangestellt) über das Kontextmenü umbenennen können. Leider habe ich durch den damaligen Wechsel der PC´s dieses Script nicht mehr. Auf einer anderen Seite habe ich nach langem Suchen ein ähnliches Script entdeckt. Das funktioniert auch super. Allerdings für die Sortierfolge für mich nicht so sehr interessant. Ich wollte daher folgendes Script soweit ändern, dass das Datum am Beginn des Dateinamens steht (jeweils durch einen _ getrennt). Ich bekomme es aber um´s Verrecken nicht hin (da ich mich mit dem Schreiben von Scripts überhaupt nicht auskenne). Könnt ihr mir helfen?

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


Es wäre super, wenn ihr mir helfen und antworten könnt.

Vielen Dank im Voraus.



Thomas
Gelsenkirchen

 

So müsste es gehen:

Set FS = CreateObject("Scripting.FileSystemObject")
FullFileName = Wscript.Arguments(0)
Set objFile = FS.GetFile(FullFileName)
FileName=FS.GetFileName(objFile)
FilePath=FS.GetParentFolderName(objFile)
FileExt=FS.GetExtensionName(objFile)
FileBaseName=FS.GetBaseName(objFile)
Today = Year(Now) & "_" & Right("0" & Month(Now), 2) & "_" & Right("0" & Day(Now), 2)
NewName = FilePath & "\" & Today & "_" & FileName
FS.MoveFile FullFileName, NewName

Für weitere Varianten habe ich die zusätzlichen Variablen FileExt und FileBaseName eingebaut, wenn das jemand benötigen sollte.

 

super, vielen Dank für das gute script!!!!!