ファイルのタイムスタンプを取得する

今回はファイルのタイムスタンプ取得についてメモしておきます。

取得する日時の形式は、システム設定に依存します。
コントロールパネルから”地域と言語”を確認してみて下さい。
ここでは「日本語(日本)」に設定されています。

FileDateTime関数で取得する

FileDateTime関数で、ファイルの更新日時を取得します。(新規ファイルの場合は作成日時)

実行プログラム

Sub Sample7_11_1()

    MsgBox FileDateTime("C:\excelmemo\Sample7_11.txt")

End Sub

Sub Sample7_11_1()

MsgBox FileDateTime("C:\excelmemo\Sample7_11.txt")

End Sub

実行条件

実行結果

FileSystemObjectを使ったタイムスタンプ取得

実行プログラム

Sub Sample7_11_2()

    Dim objFSO   As Object
    Dim strPath  As String

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strPath = "C:\excelmemo\Sample7_11.txt"

    Cells(1, 2).Value = objFSO.GetFile(strPath).DateCreated      ' 作成日時

    Cells(2, 2).Value = objFSO.GetFile(strPath).DateLastModified ' 更新日時

    Cells(3, 2).Value = objFSO.GetFile(strPath).DateLastAccessed ' アクセス日時

    Set objFSO = Nothing

End Sub

Sub Sample7_11_2()

Dim objFSO As Object

Dim strPath As String

Set objFSO = CreateObject("Scripting.FileSystemObject")

strPath = "C:\excelmemo\Sample7_11.txt"

Cells(1, 2).Value = objFSO.GetFile(strPath).DateCreated ' 作成日時

Cells(2, 2).Value = objFSO.GetFile(strPath).DateLastModified ' 更新日時

Cells(3, 2).Value = objFSO.GetFile(strPath).DateLastAccessed ' アクセス日時

Set objFSO = Nothing

End Sub

実行条件

実行後

DateCreatedプロパティで指定ファイルの作成日時を取得します。設定することはできません。
DateLastModifiedプロパティで指定ファイルの更新日時を取得します。設定することはできません。
DateLastAccessed プロパティで指定ファイルのアクセス日時を取得します。設定することはできません。