VBAファイルやフォルダーの最終更新日時を取得(DateLastModified)

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

DateLastModifiedプロパティ

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

ファイルの場合：FileObject.DateLastModified

フォルダの場合：FolderObject.DateLastModified

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.DateLastModified

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オブジェクトのDateLastModifiedプロパティで取得

Debug.Print f.DateLastModified

End Sub