如何用VB枚举出存在的盘符，并判断盘符的种类

来源：百度知道 编辑：UC知道 时间：2024/05/04 08:10:04
就是说读取当前系统存在的盘符 并判断是U盘还是其他的盘
请详细说明一下代码 一定要详细 谢谢 满意的会加分

Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()
Dim strMsg As String, i%, lng As Long, strDriver As String * 254, strD$

lng = GetLogicalDriveStrings(255, strDriver$) '得到所有盘符的字符串，并返回盘的数目lng
For i = 0 To lng / 4 - 1
strD$ = Mid$(strDriver$, i * 4 + 1, 3)
Select Case Val(GetDriveType(strD$))

Case DRIVE_REMOVABLE
strMsg = "可移动盘"
Case DRIVE_FIXED
strMsg = "硬盘"
Case DRIVE_REMOTE
strMsg = "映射盘"
Case DRIVE_