ich habe in einer Spalte ca. 700 Hyperlinks zu PDF Dokumenten oder zu Emails (*.msg)
Gerne hätte ich in der Spalte nebenan informationen vom Speicherdatum der jeweiligen Datei. Geht das ?
Sub test()
Dim fs, f, s, zeile
For zeile = 1 To 700
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Cells(zeile, 1).Hyperlinks(1).Address)
s = UCase(filespec) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBox s, 0, "File Access Info"
Next
End Sub
ist nicht ganz von mir, funktioniert aber.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen