Hallo zusammen,

vielleicht kann mir jemand weiterhelfen.

Ich habe ein Makro gefunden, welches mir die Dateinamen eines Verzeichnisses in eine Exceltabelle untereinander schreibt (Spalte A) und eine Hyperlink zur Datei nach Spalte B. Das sieht so aus s.u. und funktioniert auch ganz gut. Ich möchte gerne noch das letzte Änderungsdatum dieser Dateien nach Spalte C schreiben, kenne mich aber leider mit VBA nicht aus - die meisten Computerfreaks die ich kenne beschäftigen sich auch nicht mit so was schnödem, hab ich das Gefühl. Hat jemand hier im Forum eine Idee - ich wäre dankbar

Stefan

Sub Auto_Open()

  Columns("A:E").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Previous.Select


Dim Pfad, Format
Dim Ausführen
Dim Prüfen
Dim I
Dim Inhalt As String
Dim AW

'Hier beginnt der Eintrag in der Tabelle
I = 5

'Vorher aufräumen
Range("A" & I & ":A65536").Select
Selection.ClearContents
Cells(1, 1).Select

Pfad = Cells(1, 2)
Format = Cells(2, 2)

'Datei schon vorhanden?
Prüfen = Dir(ActiveWorkbook.Path & "\Inhalt.bat")

If Prüfen <> "" Then

    Kill (ActiveWorkbook.Path & "\Inhalt.bat")
    
End If

'Datei schon vorhanden?
Prüfen = Dir(Pfad & "\Inhalt.txt")

If Prüfen <> "" Then

    Kill (Pfad & "\Inhalt.txt")
    
End If


'Datei erstellen und öffnen
Open ActiveWorkbook.Path & "\Inhalt.bat" For Append As #1

    Print #1, "dir /b /on " & Pfad & "\*." & Format & " >>" & Pfad & "\Inhalt.txt"
    
Close #1
    
Ausführen = ShellWait(ActiveWorkbook.Path & "\Inhalt.bat", False)

'Eingentliches öffnen der Datei
Open Pfad & "\Inhalt.txt" For Input As #2


    Do While Not EOF(2)
    
        Input #2, Inhalt
        
        Cells(I, 1) = Inhalt
        
        I = I + 1
        
    Loop
    
Close #2
    
End Sub