怎样枚举硬盘盘符？

Question

怎样枚举硬盘盘符？

Answer 1

Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  
    Dim S As String    S = String(256, Chr(0))
    GetLogicalDriveStrings Len(S), S

Answer 2

Sub ShowDriveList()
    Dim fs, d, dc, s, n
    On Error Resume Next
    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