怎样枚举硬盘盘符？

[IceMe]

怎样枚举硬盘盘符？

[guoyx]

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

[hhjjhjhj]

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