Skip to main content

Drives collection

Table of contents
  1. Remarks
  2. Examples

Read-only collection of all available drives.


Removable-media drives need not have media inserted for them to appear in the Drives collection.


The following code illustrates how to get the Drives collection and iterate the collection by using the For Each...Next statement:

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

Leave a comment

Your email address will not be published. Required fields are marked *

Format your code: <pre><code class="language-vba">place your code here</code></pre>