Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien umbenennen
11.06.2021 13:06:58 Willi
NotSolved
11.06.2021 16:34:02 Ulrich
NotSolved
11.06.2021 18:58:44 Willi
NotSolved
12.06.2021 02:22:53 Ulrich
NotSolved
12.06.2021 20:59:08 Willi
NotSolved
13.06.2021 10:36:48 Ulrich
NotSolved

Ansicht des Beitrags:
Von:
Willi
Datum:
11.06.2021 13:06:58
Views:
171
Rating: Antwort:
  Ja
Thema:
Dateien umbenennen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien umbenennen
11.06.2021 13:06:58 Willi
NotSolved
11.06.2021 16:34:02 Ulrich
NotSolved
11.06.2021 18:58:44 Willi
NotSolved
12.06.2021 02:22:53 Ulrich
NotSolved
12.06.2021 20:59:08 Willi
NotSolved
13.06.2021 10:36:48 Ulrich
NotSolved