ファイルの最終更新日時を取得する【FileDateTime関数】【ExcelVBA】

構文

FileDateTime（pathame）

FileDateTime関数はファイルの作成日時を取得します。取得形式はWindowsのシステム設定に依存します。

FileDateTime関数のサンプルコード

Public Sub sample()
    Dim tmp As String
    
    tmp = ThisWorkbook.Path & "\" & "sample.xlsx"
    
    '■通常の使い方
    Debug.Print FileDateTime(tmp)                       '2021/08/28 9:00:00
    Debug.Print FileDateTime("C:\sample.xlsx")          '2021/08/28 9:00:00
    
    '■パスを指定しないとカレントフォルダとみなす
    Debug.Print FileDateTime("sample.xlsx")             '2021/08/28 9:00:00
    
    '■ファイルが存在しないと、エラー。
    Debug.Print FileDateTime("Book1.xlsx") '実行時エラー '53':ファイルが見つかりません｡

End Sub

注意点

• FileDateTime関数で取得する日時はWindowsのシステム設定に依存します。
• 返り値はDate型のため、Format関数で任意の形式に表示変更が可能です。
• 作成日時はFileDateTime関数では取得が出来ず、更新日時のみです。
  →作成日時やアクセス日時を取得したい場合はFileSystemObjectオブジェクトを使用します。

関連記事

• ファイルまたはフォルダを抽出する【Dir関数】【ExcelVBA】
• 文字列の長さを取得する【Len関数】【LenB関数】【ExcelVBA】
• ファイルサイズを取得する【FileLen関数】【ExcelVBA】