broly

Set fso=createobject("scripting.filesystemobject")
Do
Set f = fso.GetFile("E:\Program Files\1.txt")
If f.Size>1024 Then
	fso.copyfile "E:\Program Files\1.txt","D:\88\"
End If
wscript.sleep 1000*6   '//6秒复制一次
loop
复制代码