Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

.pdf Dateien umbenennen

.pdf Dateien umbenennen
25.10.2017 11:44:50
Gerhard
Hallo zusammen,
Bitte um VBA Hilfe!
Im Verzeichnis D:\Messungen\Reflexion\
werden Messdateien im Format .pdf abgelegt.
Die Dateien sollten nach folgenden Format-Shema alle umbenannt werden:
Speicherdatum und Uhrzeit sowie mit anschließendem Text Reflexion
z.B:
2017.10.23_10: 19_Reflexion.pdf
usw.
Vielen Dank für Eure Hilfe
Gruß Gerhard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .pdf Dateien umbenennen
25.10.2017 11:50:59
Rolf.dW
Hallo Gerhard,
wie lauten denn die Ursprungs-Dateinamen?
Gruß, Rolf
AW: .pdf Dateien umbenennen
25.10.2017 12:00:05
Gerhard
Halo Rolf
MID-1.Sample.pdf
MID-2.Sample.pdf
können aber auch durch manuelle Eingabe im Messgerät z.B. so benannt werden
MID-408.Sample_400-550nm.pdf
Gruß Gerhard
AW: .pdf Dateien umbenennen
25.10.2017 12:07:31
Nepumuk
Hallo Gerhard,
teste mal:
Option Explicit

Public Sub Umbenennen()
    Const FOLDER_PATH As String = "D:\Messungen\Reflexion\"
    Dim strFilename As String
    strFilename = Dir$(FOLDER_PATH & "*.pdf")
    Do Until strFilename = vbNullString
        Name FOLDER_PATH & strFilename As FOLDER_PATH & Format$(FileDateTime( _
            FOLDER_PATH & strFilename), "yyyy.mm.dd_hh-nn-ss") & "_Reflexion.pdf"
        strFilename = Dir$
    Loop
End Sub

FileDateTime ist zwar das Änderungsdatum, aber das sollte bei PDF's gleich dem Speicherdatum sein.
Gruß
Nepumuk
Anzeige
AW: .pdf Dateien umbenennen
25.10.2017 12:43:56
Rolf.dW
Hallo Gerhard,
würde also heißen, aus
MID-408.Sample_400-550nm.pdf soll
MID-408.Sample_400-550nm_2017.10.23_10: 19_Reflexion.pdf werden. Habe ich das richtig verstanden?
Gruß, Rolf
AW: .pdf Dateien umbenennen
25.10.2017 12:46:21
Gerhard
Hallo Nepumuk
Vielen Dank für Deine schnelle Hilfe!
funktioniert super...
Gruß Gerhard

10 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige