菜鸟请教:vb中如何实现监控硬盘中某文件夹的变化

菜鸟请教:vb中如何实现监控硬盘中某文件夹的变化,如果一定时间(2分钟)没有任何新文件生成,系统自动语音报警。最好有源码,谢谢!... 菜鸟请教:vb中如何实现监控硬盘中某文件夹的变化,如果一定时间(2分钟)没有任何新文件生成,系统自动语音报警。最好有源码,谢谢! 展开
 我来答 举报
骑着苍蝇来视察
2010-06-20 · 超过22用户采纳过TA的回答
知道答主
回答量:53
采纳率:0%
帮助的人:46.3万
展开全部
思路:
添加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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式