怎么得到计算机上的所有驱动器

Question

用VB怎么得到计算机上的所有驱动器

Answer 1

使用API函数：GetLogicalDriveStrings

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim i As Long
    
    For i = 0 To Drive1.ListCount - 1
        MsgBox Drive1.List(i)
    Next
End Sub

Answer 3

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long循环从 A 到 Z，判断这个函数的结果，如果为 DRIVE_UNKNOWN，那么就是该驱动器不存在。