Ich habe mir folgenden Code aus der Excelhilfe und aus dem Archiv zusammengebastelt.
Ich möchte mit diesem Code alle Dateien in einem Ordner umbenennen.
Das funktioniert eigentlich auch schon ganz gut, nur erfolgt die Nummerierung alphabetisch.
Wie kann ich die Dateien nach dessen Datum aufsteigend von dem weitesten in der Vergangeheit liegen Datum nummerieren lassen.
Beispiel die Datei B.jpg hat das Datum 05.01.2007 und die Datei A.jpg hat das Datum 10.01.2007, dann soll die Datei B.jpg Bild 01.jpg und die Datei A.jpg Bild 02.jpg heißen.
Code:
Sub Dateien_umbennen()
Dim fs, f, f1, fc, s, t, z
Dim strfolder As String
Set fs = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
z = .SelectedItems(1)
End With
Set f = fs.GetFolder(z)
Set fc = f.Files
On Error Resume Next
For Each f1 In fc
t = Format(t + 1, "##00")
f1.Name = "Bild " & t & ".jpg"
Next
End Sub
Danke für Eure Hilfe!Gruß Timo