
FileオブジェクトとFolderオブジェクトのDateLastAccessedプロパティについてです。
DateLastAccessedプロパティ
概要
指定したファイルやフォルダーの最後にアクセスした日時を返します。読み取り専用です。
※OSの時刻情報がサポートされていない場合、時刻情報は取得できません。
構文
ファイルの場合:FileObject.DateLastAccessed
フォルダの場合:FolderObject.DateLastAccessed
VBAサンプル
フォルダーの最終アクセス日時の取得
1 2 3 4 5 6 7 8 9 10 11 12 | 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 |
ファイルの最終アクセス日時の取得
1 2 3 4 5 6 7 8 9 10 11 12 | 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 |