如何检查A驱有没有磁盘？

Ajoe

如何检查A驱有没有磁盘，如果没有，就弹出提示窗口。

向各位请教！谢谢。

Ajoe

哦，那就是软驱的问题了。谢谢您，非常感谢你耐心细致的解答！

sunredday

多编制程序时已经反复实验10次以上了无盘  0 S有盘 0 S OR 1S

Ajoe

请注意第2种情况：2、软盘放进软驱读过一次（检查过一次）——最少9秒才能检查出软驱中无软盘。意思是软盘已经放进软驱读过一次（检查过一次），然后取出软盘，让程序再执行检查。我的是最少9秒才能检查出软驱中无软盘。你的呢？再试试！看看是不是我的软驱有问题（这应该是软驱的问题吧，因为我没有放盘进去，呵呵！）

sunredday

是你的软驱有问题或是你的软盘有问题我的软驱都是1 S有盘时是1S

Ajoe

Private Sub 命令1_Click()

Dim ti As Date

ti = Time()Dim Flag As Boolean

Flag = Fun_FloppyDrive0("A:")

If Flag = False Then

'MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical

Else

'MsgBox "A:驱OK！"

End If

MsgBox DateDiff("s", ti, Time())End SubPrivate Function Fun_FloppyDrive0(sDrive As String) As Boolean

'-------------------------------

'函数:检查软驱中是否有盘的存在

'-------------------------------

On Error GoTo 110

ChDir (sDrive)Fun_FloppyDrive0 = True

  Exit Function

110:

Fun_FloppyDrive0 = False

End Function

使用上面的代码，问题依旧：1、软盘1次都没有放进软驱——检查软驱最多2秒钟，最少1秒就可以检查出软驱中无软盘。2、软盘放进软驱读过一次（检查过一次）——最少9秒才能检查出软驱中元软盘。不知你们试过没有上面两种情况的测试没有？

sunredday

Private Sub 命令1_Click()

Dim ti As Date

ti = Time()Dim Flag As Boolean

Flag = Fun_FloppyDrive0("A:")

If Flag = False Then

'MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical

Else

'MsgBox "A:驱OK！"

End If

MsgBox DateDiff("s", ti, Time())End Sub

sunredday

对于我的A 驱动器两种效果几乎一样。

sunredday

Private Sub 命令1_Click()

Dim Flag As Boolean

Flag = Fun_FloppyDrive0("A:")

If Flag = False Then

MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical

Else

MsgBox "A:驱OK！"

End If

End SubPrivate Function Fun_FloppyDrive0(sDrive As String) As Boolean

'-------------------------------

'函数:检查软驱中是否有盘的存在

'-------------------------------

On Error GoTo 110

ChDir (sDrive) Fun_FloppyDrive0 = True

  Exit Function

110:

Fun_FloppyDrive0 = False

End Function

sunredday

CHDIR 要比DIR 快具体实验一下，应该成的。