vb如何获取硬盘的所有盘符并用数组drv(i)表示

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

Private Sub Form_Click()
Dim DriveID As String
Dim StrDrive As String * 255
Call GetLogicalDriveStrings(255, StrDrive)
Dim i As Integer
For i = 1 To 255 Step 4
DriveID = Mid(StrDrive, i, 3)
Print DriveID
If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For
Next i
End Sub