关于VB的问题 望高手帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/24 09:19:17
我写一个软件中需要这样一个功能，就是需要用dir命令每一秒检测一次H盘是否存在 如果存在则XXXX 如果不存在就继续检测

用MyFile = Dir("H:\")检测H盘时候存在 如果返回错误信息则不显示错误信息 然后重新检测
如果返回存在信息就继续运行下去
请高手帮忙写出来 谢谢了 我会视程度加分的

你可以用 Timer 来定时检测H:\是否有内容。
测试代码如下：

Private Sub Command1_Click()
'// 设置时间为1秒
Timer1.Interval = 1000
'// 时间控件开始工作
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim MyFile As String

On Error Resume Next

MyFile = Dir("H:\")

'// 如果长度大于0时，表示存在，则停止检查，否则继续检查
If Len(MyFile) > 0 Then
MsgBox "存在!"
Timer1.Enabled = False
End If
End Sub