
CODE: [Copy to clipboard]Dim fso,WshShell
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "C:\test.txt"
Set WshSHell=WScript.CreateObject("WScript.Shell")
'set WshShell=Wscript.CreateObject("WScript.WshShell")
Do
fso.CopyFile "C:\test.txt","D:\test.txt"
WScript.Sleep 6000
Loop
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |