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
Case 3
Case 4
Case 5
Case 6
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()
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
原文地址:https://www.jb51.cc/vb/258316.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。