vb检查磁盘类型

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