【VBA】Drivesコレクション取得(Drivesプロパティ)

FileSystemObjectのDrivesプロパティについてです。

Drivesプロパティ

ローカルPCのDriveオブジェクトで構成されるDrivesコレクションを返します。

Drivesコレクションを取得し、For Each…Nextステートメントでコレクションを反復させ、DriveオブジェクトのpathプロパティでPCのドライブパス名を全取得。

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

End Sub

【結果】