Sub test57() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''C:\Work\Book1.xlsが作成された日時を表示します MsgBox FSO.GetFile("C:\Work\Book1.xls").DateCreated Set FSO = Nothing End Sub