利用GetLogicalDrives和GetDriveType获取驱动器盘符及类型
2011-07-27 20:33
501 查看
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
bin = GetLogicalDrives()
Do
b = bin Mod 2 & b
bin = Int(bin / 2)
Loop While bin > 1
For i = 1 To Len(bin & b)
Select Case GetDriveType(Chr(64 + i) & ":/")
Case 1
Print Chr(64 + i) & ":/磁盘不存在"
Case 2
Print Chr(64 + i) & ":/可移动磁盘"
Case 3
Print Chr(64 + i) & ":/磁盘驱动器"
Case 4
Print Chr(64 + i) & ":/网络驱动器"
Case 5
Print Chr(64 + i) & ":/光盘驱动器"
Case 6
Print Chr(64 + i) & ":/RAM驱动器"
End Select
Next
End Sub
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
bin = GetLogicalDrives()
Do
b = bin Mod 2 & b
bin = Int(bin / 2)
Loop While bin > 1
For i = 1 To Len(bin & b)
Select Case GetDriveType(Chr(64 + i) & ":/")
Case 1
Print Chr(64 + i) & ":/磁盘不存在"
Case 2
Print Chr(64 + i) & ":/可移动磁盘"
Case 3
Print Chr(64 + i) & ":/磁盘驱动器"
Case 4
Print Chr(64 + i) & ":/网络驱动器"
Case 5
Print Chr(64 + i) & ":/光盘驱动器"
Case 6
Print Chr(64 + i) & ":/RAM驱动器"
End Select
Next
End Sub
相关文章推荐
- Windows API 逐个逐个学MessageBox(5) 遍历驱动器并获取驱动器属性 GetLogicalDriveStrings、GetDriveTypeA
- GetLogicalDrives|GetLogicalDriveStrings|GetDriveType-穷举系统所有驱动器
- 获取驱动器类型信息 GetDriveType
- GetLogicalDrives,GetLogicalDriveStrings,GetDriveType
- 获取磁盘类型及剩余空间 GetDiskFreeSpaceEx GetDriveTypeW GetVolumeInformation
- GetLogicalDriveStrings获取盘符
- 使用GetLogicalDriveStrings获取驱动器根路径
- WinAPI: GetDriveType - 获取磁盘类型
- 获取本机驱动器GetLogicalDrives
- GetDriveTypeA() 查看驱动器类型
- 利用GetDriveType来得到驱动器信息
- 用GetLogicalDriveStrings或FindFirstVoum两种方法获取主机驱动器列表
- 逻辑驱动器个数和盘符获取GetLogicalDrives和GetLogicalDriverStrings
- 使用GetLogicalDrives获取卷标
- 磁盘类型 GetDriveType
- [SharePoint]javascript client object model 获取lookup 类型的field的值,包括user类型(单人或者多人)的值。how to get the multiple user type/lookup type field value by Javascript client object model
- TDirectory.GetLogicalDrives获取本地逻辑驱动器
- Windows API ——GetLogicalDriveStrings——获取逻辑驱动器
- Windows API ——GetLogicalDriveStrings——获取逻辑驱动器
- WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串