項目

ファイルの日付を取得する(FileDateTime)

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++
'■ファイル日付の取得（FileDateTime ）
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

On Error GoTo err_handle

    Dim pathName  As String

    pathName = "c:\temp\test.txt"       '取得するファイルのパス

    On Error Resume Next
    
    Debug.Print FileDateTime(pathName)  'ファイル日付の取得

    Exit Sub

err_handle:

    Debug.Print Err.Description

End Sub