知道那个驱动器不是网络虚拟驱动器
编号：QA002156
建立日期: 1999年12月3日 最后修改日期：1999年12月3日
所属类别：
eos:
操作系统: win98
编程工具: vb6sp3
问题: 我在使用VB6的标准控件驱动器下拉框得时候，想知道那个驱动器不是网络虚拟驱动器?
回答:
Private Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal sDrive As String) As Long
Private Function DriveType(sDrive As String) As String
Dim sDriveName As String
Const DRIVE_TYPE_UNDTERMINED = 0
Const DRIVE_ROOT_NOT_EXIST = 1
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6
sDriveName = GetDriveType(sDrive & ":\")
Select Case sDriveName
Case DRIVE_TYPE_UNDTERMINED
DriveType = "不能识别"
Case DRIVE_ROOT_NOT_EXIST
DriveType = "不存在"
Case DRIVE_CDROM
DriveType = "是CD-ROM驱动器"
Case DRIVE_FIXED
DriveType = "硬盘驱动器"
Case DRIVE_RAMDISK
DriveType = "是RAM驱动器"
Case DRIVE_REMOTE
DriveType = "网络驱动器"
Case DRIVE_REMOVABLE
DriveType = "软盘驱动器"
End Select
End Function
Private Sub Drive1_Change()
MsgBox "驱动器类型：" & DriveType(Left(Drive1.Drive, 1))
End Sub
此问题由李海回答。
| |
|
|
| |
|
|
