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控件
获取文件的MD5值..每一次修改后MD5值会变的.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024