Dateien in Erstellungsdat. umbennen
25.05.2020 09:43:53
claudia
ich würde mich freuen, wenn Ihr mir noch mal helfen könntet.
Ich habe ein kleines Programm geschrieben, dass die Datei-Namen in meinem Foto-Sammelsurium durch das created-Date ersetzt.
Funktioniert auch perfekt. Allerdings haben die Dateinamen jetzt das Format dd.mm.yy hh_mm_ss.
Zum sortieren wäre es natürlich sinnvoller mit dem Jahr zu beginnen.
Habe also das Created-Datum auseinander geschnipselt und neu zusammengesetzt, doch jetzt bekomme ich die Fehlermeldung
"Datei existiert nicht".
Code alt: neu = objVerzeichnis & "\" & Replace(objDatei.DateLastModified, ":", "_") & Right(objDatei.Name, 4)
Name objDatei As neu
Code neu
neu = objVerzeichnis & "\" & Mid(objDatei.DateLastModified, 7, 4) & Mid(objDatei.DateLastModified, 4, 2) &
Mid(objDatei.DateLastModified, 1, 2) _
& " " & Right(objDatei.DateLastModified, 8) & Right(objDatei.Name, 4)
neu = Replace(neu, ":", "_")
Name objDatei As neu
Ich verstehe nicht, warum es so nicht mehr will, zumal der Name so korrekt aussieht.
Habt Ihr eine Idee?
Ganz lieben Dank,
Claudia
Hier noch mal das ganze Progrämmchen - ist auch kurz
Sub UmbenennenDatum()
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim alt, neu As String, sPath As String
sPath = "C:\Users\claud\OneDrive\Bilder\Pictures\test"
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder(sPath)
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
If objDatei.DateCreated