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

[xuminghua]

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

[yishuihanqing]

使用API函数：GetLogicalDriveStrings

[射天狼]

有标准控件,加一个驱动器下拉框就行了!!

[射天狼]

Option Explicit

Private Sub Command1_Click()
Dim i As Long

For i = 0 To Drive1.ListCount - 1
MsgBox Drive1.List(i)
Next
End Sub

[CloneCenter]

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

循环从 A 到 Z，判断这个函数的结果，如果为 DRIVE_UNKNOWN，那么就是该驱动器不存在。