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

sunredday

Private Function Fun_FloppyDrive(sDrive As String) As Boolean

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

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

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

On Error Resume NextFun_FloppyDrive = CHDir(sDrive) <> ""

End Function

Ajoe

Tsunredday还是不行，提示错误。语法不对。

sunredday

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

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

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

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

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

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

Ajoe

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

sunredday

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