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
|