2017年6月6日

【Excel】ファイルの種類を取得するマクロ

2017年6月6日 (火) 21:52 in ,


ファイルの種類を取得するマクロです。

例

ファイルの種類を取得するには、FileSystemObjectのGetFileでファイルオブジェクトを取得し、そのTypeプロパティからファイルの種類を取得します。

※このFileSystemObjectを使うには、あらかじめ参照設定で「Microsoft Scripting Runtime」にチェックを入れておく必要があります。


1
2
3
4
5
6
7
8
9
10
Sub GetFileType()
 
    Dim fso As New FileSystemObject
    Dim filePath As String
 
    filePath = "C:\work\image1\cccc.jpg"
 
    MsgBox filePath & vbCrLf & vbCrLf & "ファイルタイプは、『 " & fso.GetFile(filePath).Type & " 』です。", vbInformation, "FileSystemObject"
     
End Sub

実行結果






スポンサーリンク