Board logo

标题: [问题求助] 如何修改这个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

  1. 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

  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
复制代码

作者: 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