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.