Access - FileDateTime関数

Access FileDateTime関数はファイルの作成日時または最後に更新した日時を返します。

■ 構文
FileDateTime(pathname)

■ 引数
pathname　：　（必須）　フォルダ名およびドライブ名を含めた、ファイル名を示す文字列を指定します。

■ 戻り値
日時を示すバリアント型 (日付形式) の値を返します。

■ Access実行画面

「ファイルの作成日時を取得」ボタンをクリックすると、ファイル選択ダイアログが開きます。
作成日時を調べたいファイルを選択し、「開く」ボタンをクリックします。
ファイル選択ダイアログボックス

選択されたファイルの作成日時がテキストボックスに表示されます。
ファイルの更新日時が表示されたフォーム

■ Access VBA 実行コード

Option Compare Database
'ファイル選択ダイアログを開く
Private Function SelectFile_FileDialog() As String
    Dim dlgfolder As FileDialog
    Application.FileDialog(msoFileDialogFilePicker).Title = "ファイル選択"
    Application.FileDialog(msoFileDialogFilePicker).InitialFileName = "c:\windows\"
    Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
    If Application.FileDialog(msoFileDialogFilePicker).show = -1 Then
        '選択された場合
        SelectFile_FileDialog = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
    Else
        '選択されなかった場合
        SelectFile_FileDialog = ""
    End If
End Function
Private Sub コマンド0_Click()
    Dim sf As String
    Dim sfdate As String
    sf = SelectFile_FileDialog
    If sf <> "" Then
        '選択されたファイルの作成日時を取得
        sfdate = FileDateTime(sf)
        '結果表示
        Me!テキスト1 = "ファイル名：" & sf & " の作成日時は" & vbCrLf & sfdate & " です"
    End If
End Sub

FileDateTime関数 ： Access