知道那个驱动器不是网络虚拟驱动器.txt

VB技巧问答10000例 VB技巧问答10000例

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 
<END>