Sub ファイルの最終更新日時を取得する()
    
    Set システム = CreateObject("Scripting.FileSystemObject")
    
    Set ファイル = システム.GetFile("C:\test\テスト.xlsm")
    
    最終更新日 = ファイル.DateLastModified
    
    MsgBox 最終更新日
    
End Sub