ファイルの作成日時、更新日時を取得する方法

Excel VBA でファイルの作成日時、更新日時を取得するには File オブジェクトの DateCreated 、 DateLastModified プロパティを使用します。 File オブジェクトは FileSystemObject を使用して生成します。

サンプルコードは次の通りです。

VBA（実行可能なサンプルコード）
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32	Option Explicit Sub test() Dim objFileSys As Object Dim objFile As Object 'ファイルシステムを扱うオブジェクトを作成 Set objFileSys = CreateObject("Scripting.FileSystemObject") 'ファイルのオブジェクトを取得 Set objFile = objFileSys.GetFile("C:\temp\date_test.xlsx") Dim createdDate As Date Dim updatedDate As Date 'ファイルの作成日時を取得 createdDate = objFile.DateCreated 'ファイルの更新日時を取得 updatedDate = objFile.DateLastModified '取得結果を出力 Debug.Print "作成日時：" & createdDate Debug.Print "更新日時：" & updatedDate '取得結果をyyyymmddhhmmss形式の文字列に変換して表示 Debug.Print Format(createdDate, "yyyymmddHHMMSS") Debug.Print Format(updatedDate, "yyyymmddHHMMSS") Set objFile = Nothing Set objFileSys = Nothing End Sub

VBA（実行可能なサンプルコード）

Option Explicit
 
Sub test()
    Dim objFileSys As Object
    Dim objFile As Object
    
    'ファイルシステムを扱うオブジェクトを作成
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
     
    'ファイルのオブジェクトを取得
    Set objFile = objFileSys.GetFile("C:\temp\date_test.xlsx")
    
    Dim createdDate As Date
    Dim updatedDate As Date
    
    'ファイルの作成日時を取得
    createdDate = objFile.DateCreated
    
    'ファイルの更新日時を取得
    updatedDate = objFile.DateLastModified
    
    '取得結果を出力
    Debug.Print "作成日時：" & createdDate
    Debug.Print "更新日時：" & updatedDate
    
    '取得結果をyyyymmddhhmmss形式の文字列に変換して表示
    Debug.Print Format(createdDate, "yyyymmddHHMMSS")
    Debug.Print Format(updatedDate, "yyyymmddHHMMSS")
    
    Set objFile = Nothing
    Set objFileSys = Nothing
End Sub

上記の実行結果は次の通りです。

実行結果
1 2 3 4	作成日時：2018/10/28 10:19:28 更新日時：2018/10/28 10:20:13 20181028101928 20181028102013

▲このページの一番上に戻る