Sub Umbenennen()
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim Bezeichnung As String
Dim Erstelldatum As String, Dateiendung As String
Dim Pfad As String
Pfad = "C:\Users\xxxx\Desktop\Umbenennen"
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder(Pfad)
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
Bezeichnung = Pfad & "\" & objDatei.Name
Dateiendung = Mid(Bezeichnung, InStrRev(Bezeichnung, "."))
Erstelldatum = Pfad & "\" & Format(objDatei.datecreated, "YYYYMMDD") & Dateiendung
Name Bezeichnung As Erstelldatum
End If
Next objDatei
Set objDatei = Nothing
Set objFileSystem = Nothing
Set objDateienliste = Nothing
End Sub