次の方法で共有


Drives コレクション

利用可能なすべてのドライブの読み取り専用のコレクションです。

解説

Drives コレクションには、メディアが挿入されていない場合でも、リムーバブル メディア ドライブが表示されます。

次のコードでは、Drives コレクションを取得し、For Each...Next ステートメントを使用してコレクションを反復処理する方法を示します。

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 = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。