
FileSystemObjectのDrivesプロパティについてです。
Drivesプロパティ
概要
ローカルPCのDriveオブジェクトで構成されるDrivesコレクションを返します。
構文
FileSystemObject.Drives
VBAサンプル
Drivesコレクションを取得し、For Each…Nextステートメントでコレクションを反復させ、DriveオブジェクトのpathプロパティでPCのドライブパス名を全取得。
1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub test() Dim fso As Object, dc As Object Dim d As Drive Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives 'Drivesコレクションをセット 'PCのドライブパス名を取得 For Each d In dc Debug.Print d.path Next End Sub |
【結果】