Sub ファイルの作成日を取得する()

    Set ファイルシステム = CreateObject("scripting.filesystemobject")
    
    対象ファイル = "C:\test\テスト.xlsm"
    
    MsgBox ファイルシステム.GetFile(対象ファイル).DateCreated

End Sub