菜鸟请教:vb中如何实现监控硬盘中某文件夹的变化
菜鸟请教:vb中如何实现监控硬盘中某文件夹的变化,如果一定时间(2分钟)没有任何新文件生成,系统自动语音报警。最好有源码,谢谢!...
菜鸟请教:vb中如何实现监控硬盘中某文件夹的变化,如果一定时间(2分钟)没有任何新文件生成,系统自动语音报警。最好有源码,谢谢!
展开
1个回答
展开全部
思路:
添加Timer控件,设置计时时间,调用Dir函数使用循环语句遍历目录,计算目录文件总数.
当计时器被触发时,调用Dir函数使用循环语句遍历目录,计算目录文件总数,与先前的计算总数对比,如果一样则报警.
源码:
Dim i As Integer '要监控目录下文件的总数
Private Sub Form_Load()
Timer1.Enabled = True '开始计时
Timer1.Interval = 3000 '设置为3秒
If Len(Dir("c:\")) > 0 Then i = 1 '设置要监控的目录
Do While True '计算要监控目录下的文件总数
If Len(Dir()) > 0 Then
i = i + 1
Else
Exit Do
End If
Loop
End Sub
Private Sub Timer1_Timer()
Dim x As Integer '计算要监控目录下现在的文件总数
If Len(Dir("c:\")) > 0 Then x = 1
Do While True
If Len(Dir()) > 0 Then
x = x + 1
Else
Exit Do
End If
Loop
If i = x Then
MsgBox ("没有新文件") '比较是否发生变化,没有变化提示
Else
i = x '如果文件总数有变化,那么监控下一个时间段是否有变化.
End If
End Sub
添加Timer控件,设置计时时间,调用Dir函数使用循环语句遍历目录,计算目录文件总数.
当计时器被触发时,调用Dir函数使用循环语句遍历目录,计算目录文件总数,与先前的计算总数对比,如果一样则报警.
源码:
Dim i As Integer '要监控目录下文件的总数
Private Sub Form_Load()
Timer1.Enabled = True '开始计时
Timer1.Interval = 3000 '设置为3秒
If Len(Dir("c:\")) > 0 Then i = 1 '设置要监控的目录
Do While True '计算要监控目录下的文件总数
If Len(Dir()) > 0 Then
i = i + 1
Else
Exit Do
End If
Loop
End Sub
Private Sub Timer1_Timer()
Dim x As Integer '计算要监控目录下现在的文件总数
If Len(Dir("c:\")) > 0 Then x = 1
Do While True
If Len(Dir()) > 0 Then
x = x + 1
Else
Exit Do
End If
Loop
If i = x Then
MsgBox ("没有新文件") '比较是否发生变化,没有变化提示
Else
i = x '如果文件总数有变化,那么监控下一个时间段是否有变化.
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询