关闭

vb检查磁盘类型

409人阅读 评论(0) 收藏 举报
分类:
Option Explicit
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long


Private Sub Command1_Click()
    Select Case GetDriveType("C:\")
    Case 0
        MsgBox "未知类型", vbExclamation
    Case 1
        MsgBox "未知类型", vbCritical
    Case 2
        MsgBox "可移动磁盘", vbInformation
    Case 3
        MsgBox "本机磁盘", vbInformation
    Case 4
    
        MsgBox "网络磁盘", vbInformation
    Case 5
        MsgBox "光驱", vbInformation
    Case 6
        MsgBox "内存虚拟磁盘", vbInformation
    End Select
End Sub
 
 
检测有无移动磁盘插入
 
 
Option Explicit
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
If Ydcp() = False Then MsgBox "没有检测到移动磁盘" Else MsgBox "检测到移动磁盘"
End Sub
Private Function Ydcp() As Boolean
Dim i As Integer
Ydcp = False
For i = 65 To 90
If GetDriveType(Chr(i) & ":\") = 2 Then
    Ydcp = True
    Exit Function
End If
Next i
End Function
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:232530次
    • 积分:4889
    • 等级:
    • 排名:第5853名
    • 原创:227篇
    • 转载:93篇
    • 译文:0篇
    • 评论:13条
    博客专栏
    最新评论