FileオブジェクトとFolderオブジェクトのTypeプロパティについてです。
Typeプロパティ
概要
ファイルまたはフォルダーの種類に関する情報を返します。
構文
ファイルの場合：FileObject.Type
フォルダの場合：FolderObject.Type
VBAサンプル
指定したファイルの種類を取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub ファイルType() 'FileSystemObjectをセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FileSystemObjectのGetFileメソッドでFileオブジェクトをセット Dim f As File Set f = fso.GetFile("D:\sample\test.xlsx") 'FileオブジェクトのTypeプロパティで取得 Debug.Print f.Type End Sub |
【結果】
指定した圧縮フォルダーの種類を取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub 圧縮フォルダーType() 'FileSystemObjectをセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FileSystemObjectのGetFileメソッドでFileオブジェクトをセット Dim f As File Set f = fso.GetFile("D:\sample\test.zip") 'FolderオブジェクトのTypeプロパティで取得 Debug.Print f.Type End Sub |
【結果】
指定したフォルダーの種類を取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub フォルダーType() 'FileSystemObjectをセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FileSystemObjectのGetFolderメソッドでFolderオブジェクトをセット Dim fol As Folder Set fol = fso.GetFolder("D:\sample") 'FolderオブジェクトのTypeプロパティで取得 Debug.Print fol.Type End Sub |
【結果】
