FileオブジェクトとFolderオブジェクトのDriveプロパティについてです。
Driveプロパティ
概要
指定したファイルやフォルダーがあるドライブ文字を返します。読み取り専用です。
構文
ファイルの場合：FileObject.Drive
フォルダの場合：FolderObject.Drive
VBAサンプル
フォルダーのドライブ文字の取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub フォルダーのドライブ() 'FileSystemObject生成 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'Folderオブジェクト生成 Dim fol As Folder Set fol = fso.GetFolder("D:\sample") 'FolderオブジェクトのDriveプロパティで取得 Debug.Print fol.Drive End Sub |
【結果】
D:
ファイルのドライブ文字の取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub ファイルのドライブ() 'FileSystemObject生成 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'Fileオブジェクト生成 Dim f As File Set f = fso.GetFile("D:\sample\test.xlsx") 'FileオブジェクトのDriveプロパティで取得 Debug.Print f.Drive End Sub |
【結果】
D:
