[ VBA ] ファイルの作成日時または最終変更日時を取得 ( FileDateTime )

Pocket

VBA では、FileDateTime 関数を使ってファイルの作成日時または最終変更日時を取得することができます。ここでは、サンプルコードを掲載しています。

スポンサーリンク

サンプルコード

VBA でファイルの最終更新日時を取得するサンプルコードになります。

    Dim mTime As Date
    mTime = FileDateTime("E:\folder\file.txt")
    MsgBox Format(mTime, "YYYY/MM/DD HH:mm:ss")

実行結果

上記の実行結果は以下のようになります。

サンプル実行結果

サンプル実行結果

なお、ファイルパスが無効であったり、ファイルが存在しない場合は例外が発生します。パラメータにワイルドカード付のパスを指定して複数のファイルの最終更新日時をリストで取得するようなことはできません。

例外の種類 エラー番号 条件
ArgumentException 52 PathName が無効です。またはワイルドカードを含んでいます。
FileNotFoundException 53 対象のファイルが存在しません。
参考
スポンサーリンク


Pocket

Leave a Comment

Your email address will not be published. Required fields are marked *