フォルダ・ファイルの種類を取得する【Typeプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.Type

Typeプロパティのサンプルコード

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■フォルダの形式を取得
    Debug.Print fso.GetFolder("C:\vba\data").Type                  'ファイル フォルダー
    Debug.Print fso.GetFolder("C:\vba\sample").Type                'ファイル フォルダー
    
    '■ファイルの形式を取得(取得内容は環境による)
    Debug.Print fso.GetFile("C:\vba\sample.xlsx").Type          'Microsoft Excel ワークシート
    Debug.Print fso.GetFile("C:\vba\sample.pdf").Type           'Foxit PDF Reader Document
    Debug.Print fso.GetFile("C:\vba\sample.docx").Type          'Microsoft Word 文書
    
End Sub

注意点

• フォルダが存在しなければエラー発生します。FolderExistsで事前確認必要です。
  実行時エラー76「パスが見つかりません。」
• ファイルが存在しなければエラー発生します。FileExistsで事前確認必要です。
  実行時エラー53「ファイルが見つかりません。」

関連記事

• フォルダ・ファイルのパスを取得する【Pathプロパティ】【FileSystemObject】
• フォルダ・ファイルの名前を設定・取得する【Nameプロパティ】【FileSystemObject】
• フォルダ・ファイルの短い名前(8.3形式)を取得する【ShortNameプロパティ】【FileSystemObject】
• フォルダ・ファイルの短いパス(8.3形式)を取得する【ShortPathプロパティ】【FileSystemObject】