批处理之家 - Powered by Discuz! Board

标题: [问题求助] 如何修改这个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://www.bathome.net/)