ローカル コンピューターで使用できるすべての Drive オブジェクトで構成される Drive コレクションを返します。
構文
オブジェクト。ドライブ
オブジェクトは常に FileSystemObject です。
注釈
Drives コレクションには、メディアが挿入されていない場合でも、リムーバブル メディア ドライブが表示されます。
For Each..を使用して 、ドライブ コレクションのメンバーを反復処理できます 。次 のコードに示すように、次のコンストラクト。
Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。