フォルダ・ファイルのドライブを取得する【Driveプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.Drive

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

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■フォルダのドライブ名称を取得
    Debug.Print fso.GetFolder("C:\sample").Drive 'C:
    
    '■ファイルのドライブ名称を取得
    Debug.Print fso.GetFile("C:\sample\sample.txt").Drive 'C:
    
End Sub

注意点

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

関連記事

• Drivesコレクションを取得する【Drivesプロパティ】【FileSystemObject】
• ドライブの存在を調べる【DriveExistsメソッド】【FileSystemObject】
• ドライブが準備できているかどうかを調べる【IsReadyプロパティ】【FileSystemObject】