Sub test58() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''C:\Work\Book1.xlsが最後にアクセスされた日時を表示します MsgBox FSO.GetFile("C:\Work\Book1.xls").DateLastAccessed Set FSO = Nothing End Sub