alle Datein in Erstellugsdatumumbenennen
20.05.2020 12:56:02
claudia
möcht all unsere Urlaubsphotots mit dem AufnahmenDatum umbenennen.
Doch bei der Funktion name kommt die Fehlermeldung "Datei nicht gefunden", was ichnicht verstehe, er hat die Datei doch selber identifiziert...
Habe meine erste Name-Funktion (Doppelpunkt in Uhrzeit) daraufhin erstmal vereinfacht, um zu verifizieren, dass der Fahler nicht hier lag, doch das Problem bleeibt...
Könntet Ihrmir bitte helfen?
Danke, Claudia
Sub UmbenennenDatum()
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim alt, neu As String
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:\Users\claud\OneDrive\Bilder\Pictures\Diverse")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
'Name objDatei.Name As Replace(objDatei.DateCreated, ":", "_") & Right(objDatei.Name,4)_
alt = objDatei.Name
neu = "a.jpg"
Name alt As neu
End If
Next objDatei
End Sub