Hallo,
ich versuche Dateien (Bilder) in einem Ordner umzubenennen.
Habe Jedoch noch zwei Probleme. Zum einen kommt bei mir die Fehlermeldung "Laufzeitfehler 53: Datei nicht gefunden", des weiteren weiß ich noch nicht wie ich das Datum so drehen kann, dass der Dateiname folgend beannt wir: JJJJMMTT
Vielen Dank und anbei mein Programm
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
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
Erstelldatum = Pfad & objDatei.datecreated
Name Bezeichnung As Erstelldatum
End If
Next objDatei
End Sub
|