構文
Object.Drive
Drive・・・・指定したObjectのドライブ名称を取得します。
Fileオブジェクト、Folderオブジェクトが存在するドライブ名称を取得します。
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「ファイルが見つかりません。」
コメント