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

---

【書式】

Folder.DateLastAccessed

フォルダが最後にアクセスされたときの日付と時刻を返します。

返り値は文字列です。

Sub test40()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Workフォルダに最後にアクセスした日時を表示します
    MsgBox FSO.GetFolder("C:\Work").DateLastAccessed
    Set FSO = Nothing
End Sub