umbennenFotos.vbs

Mit diesem VBScript können Sie Dateinamen automatisch das Dateidatum voranstellen.

In einem speziellen Ordner auf Ihrem Rechner legen Sie alle digitalen Fotos als JPG-Dateien ab. Um die Dateien einfacher sortieren zu können und einen chronologischen Überblick über Ihre Fotos zu behalten, möchte Sie den Dateinamen nachträglich und möglichst einfach das Dateidatum voranstellen. Das übernimmt dieses Skript. So funktioniert das Skript: Den Pfad zum Ordner mit Ihren Fotos erhält es normalerweise als Aufrufparameter und schreibt ihn in die Variable »szFolder«. Wenn Sie keinen Parameter übergeben, erkundigt sich das Programm in einem Dialog danach - im Beispiel zeigt es den Pfad »C:\Daten\Alex\Fotos« als Vorgabeeinstellung an. Anhand dieses Pfades erzeugt das Skript das Objekt »objFileSystem« vom Typ »Scripting.FileSystemObject«. In einer »For Each«-Schleife bearbeitet es dann nacheinander alle in diesem Ordner enthaltenen Dateien »objFile«, wenn die Eigenschaft »Type« der jeweiligen Datei den Eintrag »JPEG-Bild« enthält. Das Skript extrahiert aus der Eigenschaft »objFile.DateCreated« für das Dateidatum die Einzeldaten Jahr, Monat und Tag, die es in die Variablen »szYear«, »szMonth« und »szDay« schreibt. Einstelligen Tages- oder Monatsangaben stellt es dabei jeweils eine »0« voran. Aus diesen Daten wird schließlich der Wert »szDateCreated« nach dem Muster »JJJJMMTT« gebildet. Zuletzt prüft das Skript, ob die ersten acht Stellen des Dateinamens bereits »szDateCreated« entsprechen. Wenn diese Prüfung negativ ausfällt, benennt das Skript die aktuell bearbeitete Datei mit dem Befehl »objFile.Name = szDateCreated & " " & objFile.Name« entsprechend um.