指定したファイルの作成日時、最終アクセス日時、更新日時を取得する。

FileSystemObjectのGetFileメソッドを利用して指定のファイルの作成日時、最終アクセス日時、更新日時を取得することができます。

GetFileには下記の引数が設定できます。

	引数名	説明	省略
第１引数	filespec	確認対象のファイルのパスを指定	不可

ファイルの作成日時、最終アクセス日時、更新日時の情報はGetFileメソッドで取得したオブジェクトのプロパティから取得できます。
第１引数で指定したパスに実在しないファイルを指定した場合はエラーとなります。

'******************************************************************
'　ファイルの作成日時、最終アクセス日時、更新日時を取得を取得
'******************************************************************
Sub Main_GetFileDate()
    
    '確認したいファイルパスを指定
    Dim sFile As String
    sFile = "C:\VBA\FSO\vba-sample.xlsx"
    
    'FileSystemObjectの作成
    Dim oFso As Object
    Set oFso = CreateObject("Scripting.FileSystemObject")
    
    'ファイルオブジェクトを取得
    Dim oFile As Object
    Set oFile = oFso.GetFile(sFile)
    
    'プロパティからファイルの作成日時、最終アクセス日時、更新日時を取得
    Debug.Print "作成日時          - " & oFile.DateCreated
    Debug.Print "最終アクセス日時  - " & oFile.DateLastAccessed
    Debug.Print "更新日時          - " & oFile.DateLastModified
    
End Sub

　■実行結果