Question

怎样VB获取硬盘最后一个盘盘符

Answer 1

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_Click()

Dim StrDrive As String '盘符串(A:\ C:\ D:\...)

Dim DriveID As String '盘符(如:A:\)

StrDrive = String(100, Chr$(0)) '初始化盘符串

Call GetLogicalDriveStrings(100, StrDrive) '返回盘符串

Dim i As Integer

'返回光盘盘符到数组
For i = 1 To 100 Step 4 '注意这里是4
DriveID = Mid(StrDrive, i, 3) '枚举盘符
If GetDriveType(DriveID) = 3 Then s = Mid(StrDrive, i, 3)
If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For '没有盘符,即时退出循环
Next i

MsgBox "最后一个硬盘盘符是 " & s
End Sub