【ExcelVBA】ファイルのタイムスタンプ（更新日時）を取得する方法

Sub sample1()

Dim FilePath As String

　　’対象のファイルパスを変数にセット
    FilePath = "C:\Users\Owner\Desktop\learningpgm\VBA\ファイルのタイムスタンプを取得\ファイルA.xlsx"　'※⓵
    
　　’ファイルが存在する場合
    If Dir(FilePath) <> "" Then　'※⓶
　　　　’ファイルの更新日時をメッセージボックスに表示
　　　　MsgBox FileDateTime（FilePath）　'※⓷
    End If
    
End Sub

Sub sample2()
'日付だけ

Dim FilePath As String

　　’対象のファイルパスを変数にセット
    FilePath = "C:\Users\Owner\Desktop\learningpgm\VBA\ファイルのタイムスタンプを取得\ファイルB.xlsx"　

    ’ファイルが存在する場合
    If Dir(FilePath) <> "" Then
　　　　’ファイルの更新日付をメッセージボックスに表示
        MsgBox Format(FileDateTime(FilePath), "yyyy/MM/dd")
    End If

End Sub

Sub sample3()
'フォルダ内のファイルを繰り返してファイル名とタイムスタンプを取得する

Dim ForderPath As String
Dim TargetRow As Integer
Dim TargetFile As Object
Dim fso As Object

    '対象のフォルダパスを変数に格納する
    ForderPath = "C:\Users\Owner\Desktop\learningpgm\VBA\ファイルのタイムスタンプを取得\"　'※⓵
    
    'FileSystemObjectのインスタンスを作成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    TargetRow = 1
        
    'フォルダ内のファイルをループ
    For Each TargetFile In fso.GetFolder(ForderPath).Files　'※⓶
         
        'ファイル名をA列に書き出す
        Cells(TargetRow, 1) = TargetFile.Name　'※⓷

        'ファイルのタイムスタンプをB列に書き出す
        Cells(TargetRow, 2) = FileDateTime(TargetFile)　'※⓸
        
        '書き出す行を1行UPする
        TargetRow = TargetRow + 1　'※⓹
        
    Next TargetFile

    Set fso = Nothing
    Set TargetFile = Nothing

End Sub