do
if fso.fileexists("d:\001\file.mdb") then
wscript.sleep 10000 '若存在该文件即跳过10秒
msgbox "存在"
else
fso.copyfile "d:\002\file.mdb","d:\001\file.mdb"
'若不存在文件 则copy d:\002\file.mdb 到d:\001\file.mdb
msgbox "不存在"
end if
loop
'不好意思没检查
set fso=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")
fpth="F:\临时文件\"'设置指定的文件夹路径
set fd=fso.getfolder(fpth)
set ofw=fso.opentextfile(fpth&"wind_record.txt",8,true)
fname="1.txt"'设置指定的文件名
set fis=fd.files
do
for each fil in fis
if lcase(fil.name)=lcase(fname) then
ofw.writeline fname &" " &now
ws.popup "出现指定文件---"&fname,2,"Windows",64 '出现文件后,d出两秒自动关闭的提示框
end if
next
wscript.sleep 3000'每3000毫秒循环检测一次
loop
另外,453625978朋友的批处理中的 ping 127.1 /n 10 并不是延时10秒,而是ping 10次
如果要用ping作延时,应该是ping /w 这个参数
然后,楼主可能没有考虑到,这个程序运行后你将如何退出??
甚至是如何执行,手动,开机自动? 你都没有说明 .
所以,我只给出了程序的主体部分,有兴趣的话,你可以密我交流. 或Q,121 ,770 ,754
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)