标题: [问题求助] 如何修改这个vbs代码?能自动检测文本大小,请高手修改 [打印本页]
作者: tyfvip 时间: 2012-4-17 23:09 标题: 如何修改这个vbs代码?能自动检测文本大小,请高手修改
原vbs:
set fso=createobject("scripting.filesystemobject")
do
fso.copyfile "E:\Program Files\1.txt","D:\88\"
wscript.sleep 1000*6 '//6秒复制一次
loop
1:以上vbs是“文本1”自动复制到D盘;
2:“文本1”是某程序自动生成,但“文本1”生成不稳定,大于1kb才有用,
3:请问如何修改代码满足:如果它大于1kb就自动复制它,反之小于1kb就不复制,等高人解答,怎样修改???谢谢
作者: powerbat 时间: 2012-4-18 12:46
- fso.GetFile("E:\Program Files\1.txt").Size
复制代码
Windows脚本技术手册 script56.chm
http://www.bathome.net/forum-7-1.html
作者: tyfvip 时间: 2012-4-18 13:14
回复 2# powerbat
老师您好,我是菜鸟,能详细些吗?
作者: broly 时间: 2012-4-18 17:32
- 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
复制代码
作者: zuo99901 时间: 2012-4-18 18:30
看来我要学习的很多啊。
作者: tyfvip 时间: 2012-4-18 21:17
本帖最后由 tyfvip 于 2012-4-18 21:19 编辑
回复 4# broly
谢谢老师!!
这个能多个文件不同目录.可以 同时处理吗?
如这样:
set fso=createobject("scripting.filesystemobject")
do
fso.copyfile "E:\Program Files\*.txt","D:\88\"
fso.copyfile "D:\01*.txt","D:\88\"
fso.copyfile "D:\22*.txt","D:\88\"
wscript.sleep 1000*6 '//6秒复制一次
loop
也是大于1kb就自动复制这些,反之小于1kb的文件就不复制
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |