请教如何判断软驱在运行

• 运行
• 判断
• 如何
• 请教
• Sub
• 软盘
• End
• 一个
• 程序
• P

在学校机房上机的时候，经常会把软盘忘在机房。等再去找的时候，早已“人去楼空”!辛辛苦苦Copy的好东东，再也无缘相见!我们何不用VB编一个小程序，到了快下课的时候让它提醒我们带走呢?

一、界面设计

新建一个标准EXE工程?在Form1上放置三个Combo控件，依次设置它们的List属性：Combo1为0-23、Combo2为00-59、Combo3为00。再加入一个Timer控件，其Interval属性为1000，Enabled属性为True 。然后再加一个Label控件，Caption属性为“提醒时间是：”。最后再加入两个命令按钮 Command1和 Command2，其Caption属性分别为“确定”和“退出”。

二、程序代码

Private Sub Form_Load??
Me.Caption = Time
End Sub
'检查软驱是否有软盘存在
Private Function FloppyDiskFlag?sDrive As String? As Boolean
On Error Resume Next
FloppyDiskFlag = Dir?sDrive? <> ″″
End Function
'时间到了，检查软驱是否有软盘存在
Private Sub Timer1_Timer??
Me.Caption = Time
If Time = Combo1.Text & ″?″ & Combo2.Text & ″?″ & Combo3.Text Then
Dim flag As Boolean
flag = FloppyDiskFlag?″A?″?
If flag = False Then
MsgBox ″软驱没有软盘!放心走吧!（最好再检查一下软驱!）″? 16? ″注意″
Unload Me
Else
MsgBox ″软驱有软盘!请您及时取出!″? 64? ″注意″
Unload Me
End If
End If
End Sub
Private Sub Command1_Click??
Me.Hide
End Sub
Private Sub Command2_Click??
Unload Me
End Sub

这样一个软盘提醒小程序就做好了!当然，以同样方法我们可以再加编一个光盘提醒小程序。该程序非常简单，可是很实用啊!本程序在Windows98/VB6.0环境中通过