Sub ファイルタイプ種類を取得する()
    
    Set ファイルシステム = CreateObject("scripting.filesystemobject")
    
    対象ファイル = "C:\test\テスト.xlsm"
    
    MsgBox ファイルシステム.GetFile(対象ファイル).Type
    
End Sub