如何用VB编程监控指定文件夹下指定文件是否新增或修改?
如何用VB编程监控指定文件夹下指定文件是否新增或修改? 有个flv视频文件会不定时地在C:\temp\pptt.flv中创建,且不同时间创建的文件名均为pptt.flv,也就是说随着时间的推移它会被覆盖,现在我要用VB编一个程序,如果发现这个pptt.flv创建了或修改了就将它复制并更名到
D:\flv\01.flv,下一个文件名为02.flv,以此类推,该如何做?
现在写了一个程序是这样的,但会出现错误70:拒绝的权限。本人初学,请朋友们帮我分析下原因,谢谢!
Private Sub Form_Load()
Timer1.Interval = 3000
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"
是因为当第二次启动这个小程序时,由于第一次已经产生了文件00001.flv,00002.flv等,再次运行时还是产生文件00001.flv,00002.flv,就会发现文件已经存在(并且可能在使用)于是就出现“拒绝的权限”错误,如何解决?