Speicherdatum verschiedener Dateien auslesen

[Oomtraa]

Hallo Expert:innen!

Ich würde gerne in einer Excel-Liste das Speicherdatum verschiedener Dokumente (.pdf, .catpart, .stp ...) anzeigen bzw. auslesen lassen.

Könnt Ihr mir behilflich sein?

Danke im Voraus!
C.


PS: Sollte das Thema schon vorhanden sein, bitte um Info!!

[RPP63]

Sollte das Thema schon vorhanden sein, bitte um Info!!

Moin!
Schonmal die Suchmaschine des geringsten Misstrauens bemüht?
Speicherdatum auslesen VBA
Ergibt nur 1.800 Funde …

Gruß Ralf

P.S.:
Wo sieht man in Deiner Datei Speicherort und Namen der PDFs?

[UweD]

Hallo

es ist schon komisch, den Speicherort direkt in die Root eines Laufwerkes zu legen und auch ohne \ zu arbeiten

Hier mal eine Lösung.

Code:

Sub datum()
    Dim Pfad As String, Z1 As Integer, SpQ As Integer, SpZ As Integer, i As Integer, LR As Integer

    SpQ = 10 'Spalte J
    SpZ = 6 'Spalte F
    Z1 = 2 ' Erste Datenspalte
   
    LR = Cells(Rows.Count, SpQ).End(xlUp).Row 'letzte Zeile der Spalte

    For i = Z1 To LR
        Pfad = Replace(Cells(i, SpQ), ": ", ":\")
        If Dir(Pfad) <> "" Then
            Cells(i, SpZ) = Format(FileDateTime(Pfad), "DD.MM.YYYY")
        Else
            Cells(i, SpZ) = "nicht da"
        End If
    Next
End Sub

Der Doppelpunkt plus Leerzeichen wechsle ich in :\



LG UweD

[Oomtraa]

Herzlichen DANK!!!!!! Hat soweit gut geklappt.

Könnte ich ein Wort mit einer verlinkten Datei auch auslesen?