如何修改这个vbs代码？能自动检测文本大小,请高手修改

tyfvip · 发表于 2012-4-17 23:09:58

原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:16

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:18

回复 2# powerbat

老师您好，我是菜鸟，能详细些吗？

broly · 发表于 2012-4-18 17:32:35

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:10

看来我要学习的很多啊。

tyfvip · 发表于 2012-4-18 21:17:03

本帖最后由 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的文件就不复制

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 如何修改这个vbs代码？能自动检测文本大小,请高手修改

浏览过的版块