Thema Datum  Von Nutzer Rating
Antwort
11.06.2021 13:06:58 Willi
NotSolved
Blau Dateien umbenennen
 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:
Ulrich		 Datum:
11.06.2021 16:34:02		 Views:
480		 Rating:
     
Antwort:
  Ja
Thema:
Dateien umbenennen

Hallo,

jetzt musst du dir wohl noch überlegen, was du machst, wenn zwei Dateien am selben Datum erstellt wurden ;-) .

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, "."))       'Dateiendung mit Punkt
        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

 

Übrigens: TotalCommander (https://www.ghisler.com/deutsch.htm) macht das mit zwei Mausklicks ...

Grüße, Ulrich

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
11.06.2021 13:06:58 Willi
NotSolved
Blau Dateien umbenennen
 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