Question

vb获磁盘号分区号？

Public DL_R As String
Public DL_PN As String
Publi

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_Load()
Dim strSave As String
Dim drvName As String
Me.AutoRedraw = True
strSave = String(255, Chr$(0))
ret& = GetLogicalDriveStrings(255, strSave)
For keer = 1 To 100
If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For
drvName = Left$(strSave, InStr(1, strSave, Chr$(0)) - 1)
Select Case GetDriveType(drvName)
Case 0
Me.Print "不明 " + "盘符为： " + drvName
Case 2
Me.Print "软驱 " + "盘符为： " + drvName
Case 3
Me.Print "硬盘 " + "盘符为： " + drvName
Case 4
Me.Print "网络盘 " + "盘符为： " + drvName
Case 5
Me.Print "光驱 " + "盘符为： " + drvName
Case 6
Me.Print "RamDisk " + "盘符为： " + drvName
End Select
strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0)))
Next keer
End Sub