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

2025-04-13 06:20:28

推荐回答（2个）

回答（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）：

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