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