如何检测软盘和光驱？

[mtoad]

我做了资源管理器，不知道如何检测软盘和光驱？
请高人指点

[3661512]

是检测类型,还是检测设备有没有就绪??

给你段检测磁盘类型的代码
Option Explicit


Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
Dim StrDrive As String '盘符串(A:\ C:\ D:\...)
Dim DriveID As String '盘符(如:A:\)
StrDrive = String(100, Chr$(0)) '初始化盘符串
Call GetLogicalDriveStrings(100, StrDrive) '返回盘符串
Dim i As Integer
'返回光盘盘符到数组
For i = 1 To 100 Step 4 '注意这里是4
DriveID = Mid(StrDrive, i, 3) '枚举盘符
If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For '没有盘符,即时退出循环
'Debug.Print DriveID
'Debug.Print GetDriveType(DriveID)
If GetDriveType(DriveID) = 2 Then
List1.AddItem DriveID & " 软盘"
End If
If GetDriveType(DriveID) = 3 Then
List1.AddItem DriveID & " 硬盘"
End If
If GetDriveType(DriveID) = 5 Then
List1.AddItem DriveID & " 光驱"
End If
Next i

End Sub

[since1990]

打开／关闭光驱门

声明
Private Declare Function mciSendString Lib "winmm.dll" Alias "
mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString
As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As
Long
代码
Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

Sub CloseCDDoor()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub









给你段检测磁盘类型的代码
Option Explicit


Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
Dim StrDrive As String '盘符串(A:\ C:\ D:\...)
Dim DriveID As String '盘符(如:A:\)
StrDrive = String(100, Chr$(0)) '初始化盘符串
Call GetLogicalDriveStrings(100, StrDrive) '返回盘符串
Dim i As Integer
'返回光盘盘符到数组
For i = 1 To 100 Step 4 '注意这里是4
DriveID = Mid(StrDrive, i, 3) '枚举盘符
If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For '没有盘符,即时退出循环
'Debug.Print DriveID
'Debug.Print GetDriveType(DriveID)
If GetDriveType(DriveID) = 2 Then
List1.AddItem DriveID & " 软盘"
End If
If GetDriveType(DriveID) = 3 Then
List1.AddItem DriveID & " 硬盘"
End If
If GetDriveType(DriveID) = 5 Then
List1.AddItem DriveID & " 光驱"
End If
Next i

End Sub














another code
你可以使用下面这个函数：
Public Function IsEmptyCDROM(sDrive As String)
Dim s

On Error GoTo ErrHandle
s = Dir(sDrive + ":\*.*")
IsEmptyCDROM = False
Exit Function
ErrHandle:
IsEmptyCDROM = True
End Function
如果你的光驱是E盘，调用IsEmptyCDROM("e")，如果返回值为False表示有光盘，返回True表示没有光盘。