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

Rank: 1

帖子
3 
积分
25 
技术
0  
捐助
0  
注册时间
2012-4-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
2楼
发表于 2012-4-18 12:46 | 只看该作者 
  1. fso.GetFile("E:\Program Files\1.txt").Size
复制代码
Windows脚本技术手册 script56.chm
http://www.bathome.net/forum-7-1.html
script56
新加坡Google

TOP

tyfvip

Rank: 1

帖子
3 
积分
25 
技术
0  
捐助
0  
注册时间
2012-4-17 
3楼
发表于 2012-4-18 13:14 | 只看该作者
回复 2# powerbat


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

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
4楼
发表于 2012-4-18 17:32 | 只看该作者 
  1. Set fso=createobject("scripting.filesystemobject")

  2. Do

  3. Set f = fso.GetFile("E:\Program Files\1.txt")

  4. If f.Size>1024 Then

  5. 	fso.copyfile "E:\Program Files\1.txt","D:\88\"

  6. End If

  7. wscript.sleep 1000*6   '//6秒复制一次

  8. loop
复制代码
---学无止境---

TOP

zuo99901

Rank: 1

帖子
4 
积分
25 
技术
0  
捐助
0  
注册时间
2012-3-30 
5楼
发表于 2012-4-18 18:30 | 只看该作者
看来我要学习的很多啊。
网名超拽 www.qqdaohang.com

TOP

tyfvip

Rank: 1

帖子
3 
积分
25 
技术
0  
捐助
0  
注册时间
2012-4-17 
6楼
发表于 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的文件就不复制

TOP

返回列表