Fileオブジェクト - DateLastAccessedプロパティ

このエントリーをはてなブックマークに追加  



【書式】
File.DateLastAccessed

ファイルが最後にアクセスされたときの日付と時刻を返します。
返り値は文字列です。
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


このエントリーをはてなブックマークに追加