Private Sub 命令0_Click() Dim Flag As Boolean Flag = Fun_FloppyDrive("A:") If Flag = False Then MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical End Sub
Private Function Fun_FloppyDrive(sDrive As String) As Boolean '------------------------------- '函数:检查软驱中是否有盘的存在 '------------------------------- On Error Resume Next Fun_FloppyDrive = Dir(sDrive) <> "" End Function
