VBAファイルやフォルダーの最終アクセス日時を取得(DateLastAccessed)

FileオブジェクトとFolderオブジェクトのDateLastAccessedプロパティについてです。

DateLastAccessedプロパティ

指定したファイルやフォルダーの最後にアクセスした日時を返します。読み取り専用です。

※OSの時刻情報がサポートされていない場合、時刻情報は取得できません。

ファイルの場合：FileObject.DateLastAccessed

フォルダの場合：FolderObject.DateLastAccessed

Sub testフォルダー()

'Objectの宣言とオブジェクト変数にFileSystemObjectセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FolderオブジェクトをFileSystemObjectのGetFolderメソッドで返して、folにセット

Dim fol As Folder

Set fol = fso.GetFolder("D:\sample")

'FolderオブジェクトのDateLastAccessedプロパティで取得

Debug.Print fol.DateLastAccessed

End Sub

Sub testファイル()

'Objectの宣言とオブジェクト変数にFileSystemObjectセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'fileオブジェクトをFileSystemObjectのGetFileメソッドで返して、オブジェ変数fにセット

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'FileオブジェクトのDateLastAccessedプロパティで取得

Debug.Print f.DateLastAccessed

End Sub