Question

如何用VB编程监控指定文件夹下指定文件是否新增或修改?

有个flv视频文件会不定时地在C:\temp\pptt.flv中创建，且不同时间创建的文件名均为pptt.flv，也就是说随着时间的推移它会被覆盖，现在我要用VB编一个程序，如果发现这个pptt.flv创建了或修改了就将它复制并更名到
D:\flv\01.flv,下一个文件名为02.flv,以此类推，该如何做？
请朋友们写出详细的过程，我对VB不太了解。谢谢。
满意答案再加30分！
错误70 是因为当第二次启动这个小程序时，由于第一次已经产生了文件00001.flv,00002.flv等，再次运行时还是产生文件00001.flv,00002.flv，就会发现文件已经存在（并且可能在使用）于是就出现“拒绝的权限”错误，如何解决？
我其实在D:\flv\下还有一些文件，生活大爆炸.rmvb,致我们终将逝去的青春.rmvb,疯狂原始人.rmvb..........
如果程序能计算“生活大爆炸.rmvb"的文件大小和“00002.flv”的文件大小大约相等（不会相差100KB），那么程序就将文件名由“00002.flv”改为“生活大爆炸.flv"并且删除“生活大爆炸.rmvb"，以此类推。如果没有大约相等的文件就文件名保持为原来的0000N.flv 的形式。这样也能避免错误70.

Answer 1

Private Sub Form_Load()
Timer1.Interval = 30000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static ft As Date, fn As Long
If FileDateTime("C:\temp\pptt.flv") <> ft Then
    ft = FileDateTime("C:\temp\pptt.flv")
    fn = fn + 1
    FileCopy "C:\temp\pptt.flv", "D:\flv\" & Format(fn, "00000") & ".flv"
End If
End Sub

窗体上要放一个Timer1控件

追问

没用哦，正常过一次，有时出现下面2个错误，是什么原因？

点调试，下面这段显黄色：If FileDateTime("C:\temp\pptt.flv") <> ft Then

我估计文件找不到的原因是因为下一个pptt.flv生成之前会将原来的pptt.flv删除，所以就找不到，如何解决呢？

 

追答

Private Sub Form_Load()
Timer1.Interval = 30000
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Static ft As Date, fn As Long
If Dir("C:\temp\pptt.flv") <> "" Then
    If FileDateTime("C:\temp\pptt.flv") <> ft Then
        ft = FileDateTime("C:\temp\pptt.flv")
        fn = fn + 1
        FileCopy "C:\temp\pptt.flv", "D:\flv\" & Format(fn, "00000") & ".flv"
    End If
End If
End Sub

追问

感谢您的耐心解答。现在这个程序还是出现如上图的70错误，点调试，下面这段显黄色： FileCopy "C:\temp\pptt.flv", "D:\flv\" & Format(fn, "00000") & ".flv"
该怎样解决呢？
另外感觉增加的这个语句 If Dir("C:\temp\pptt.flv") "" Then 没用，因为还是会出现53错误。

追答

这是因为当文件刚开始生成但还没有生成完毕时，程序就检测到了并立刻复制，这样就会出错的。解决的办法就是检测到文件有更新时不要立刻复制，等几秒后再复制；或者复制时先检测文件长度（filelen），大于指定值才复制；也可以用on error拦截错误，如果出错就返回去再次复制，直到不出错为止。推荐第三种方法

追问

好像是这么回事，我发现每次复制大文件时出错机率更多。
经过一天的调试，发现这样能解决问题：在这个语句FileCopy "C:\temp\pptt.flv", "D:\flv\" & Format(fn, "00000") & ".flv"前加入 On Error Resume Next，就能成功了。谢谢！接下来我想优化一下程序，这是下一个问题了，非常期待能得到您的回答。

Answer 2

获取文件的MD5值..每一次修改后MD5值会变的.

追问

能否写个完整程序？

追答

http://www.newxing.com/Tech/Program/VisualBasic/417.html
这里有一个源码.你自己下载下来.写下就OK了..文件每次修改后的MD5是不一样的..