请教一个vbs的问题？

七叶一枝梅

1、假定我的C盘上有一个文件叫test.txt我必须“每分钟”备份一次（C:\test.txt）； 2、假定我备份的文件夹必须以每天的日期为名称； 3、假定我不愿意用命令行或批处理来做这件事，而想用VBS来做这件事； 4、假定我想用来做这件事的代码为“C:\back.vbs”(不要忘了存到C盘上去。) 5、想开机就运行本脚本的话，请在“运行”中运行“Gpedit.msc”然后指定本脚本为开机脚本。

——“C:\back.vbs”的代码如下：

''首先获得当前日期与时间；并作好程序运行的准备工作 A_dat=date a_tm=time c_tm=a_tm + #0:01#'''计划一分钟后再运行 b_tm=Replace(cstr(a_tm),":","-")''准备生成文件名 MFodr="c:\" & cstr(A_dat)'''准备生成文件夹的名称 mmm="C:\back.vbs"''指定脚本自己的路径 test="c:\test.txt"'''要备份的文件的名称与路径 '''以上作好了准备

''先判断是否建立了存文件的文件夹，如果没有则是新建一个（按日期） Dim mf, fldr Set mf = CreateObject("Scripting.FileSystemObject") If mf.FolderExists(MFodr)=false Then Set fldr = mf.CreateFolder(MFodr) End If

''下面执行备份 Dim fso, f1, f2, s Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.GetFile(test)

'''建立文件保存时的名称（按时间） Afolr=MFodr & "\" Afile=b_tm & ".txt" f1.Copy (Afolr & Afile) ''上句代码即执行了备份。

''下面进行计划任务的设定。 aaaa="at" & chr(32) & c_tm & chr(32)& mmm set ws=WScript.CreateObject("WScript.shell") ret=ws.run(aaaa ,0,"true")

'''''''''''''''''=======================

成品如下：

49Wl2TYQ.rar (716 Bytes, 下载次数: 13)

2005-1-12 14:47 上传

点击文件名下载附件
请教一个vbs的问题？

[此贴子已经被作者于2005-1-12 14:59:16编辑过]

cofe2000

太感谢您啦，完全符合要求！

七叶一枝梅

以下是引用cofe2000在2005-1-12 15:00:00的发言：

太感谢您啦，完全符合要求！

用批处理+命令行其实更简单,

用"echo"与定向通道符">>"只需几行命令,你可以搜一下帮助(命令行的帮助,前面我已贴了图.)

cofe2000

我试了一下，只会写这么多

@echo OFF echo COPY C:\TEST.TXT echo Loading... \\SGB\C$\TEST.VBS

关于定向通道符">>"的问题能否来个示例，我一点都摸不到边啊？谢谢

另一个问题

chr(32)和chr（9）代表什么啊？

cofe2000

再请问一下，在98系统中没有at命令的话是不是只能用批处理+命令行来实现呢？

七叶一枝梅

以下是引用cofe2000在2005-1-12 16:23:00的发言：

关于定向通道符">>"的问题能否来个示例，我一点都摸不到边啊？谢谢

另一个问题

chr(32)和chr（9）代表什么啊？

先答问：

1、chr(32)是空格符，chr（9）是制表符，两者在脚本中可以通用，

2、通道符定向">>"其实只有一个“>”，用两个的作用是不清除原文档中过去的内容（你把两个通道符换成一个，再运行一下试试就知道区别了。）我在过去的帖子中讲过这个通道符的问题（好像是一个关于如何快速打印文件夹下文件名的帖子，你搜一下。）

==========

利用命令行或批处理来做你这个问题，要简单得多，而且运行时占用的系统资源也要少很多。 假定要监控的文档名为“c:\test.txt”，监控的结果文档按时间分类存为“c:\ok.txt”，则将下两行代码存为“C:\back.bat”

time/t >>c:\ok.txt type c:\test.txt >>c:\ok.txt

第一句命令在ok.txt中，生成当前时间，第二句命令把test.txt的内容写入到ok.txt中，仅这两句命令已足够了！如果想分隔再明显一点，可以在上两行代码后再添一行

echo "====================" >>c:\ok.txt，这样每一次记录之间就有了一根分隔线。

批处理编好后，再在计划任务中指定每小时运行即可，这就不需要多说了吧？！ 唯一要注意的是计划任务中选择“每天”运行后，要选“高级”然后 设定为每小时运行，如图：

FWpvYt51.rar (112 Bytes, 下载次数: 10)

2005-1-12 20:37 上传

点击文件名下载附件
请教一个vbs的问题？

[此贴子已经被作者于2005-1-13 8:14:38编辑过]

七叶一枝梅

以下是引用cofe2000在2005-1-12 13:20:00的发言： 请问您说的“直接记录LOG日志文件”的方法怎么用啊，对我来说又是一个新鲜的事物，请多指教！！

win2K\XP\2003机子上的LOG功能，最明显的例子就是“事件查看器”，所有的事件都是以*.log的格式（其实就是txt格式）存放在系统文件夹下的。

这个记录日志的功能由Winlogo服务提供，你在系统进程管理器中应该得到它。

详细的用法还是一点——

windows的帮助文件啊！！大哥！

cofe2000

通道符定向">>"的问题已基本搞清楚了，但是还有几个问题想继续请教：

这是我修改后的代码

date/t >>c:\ok.txt

time/t >>c:\ok.txt

type c:\test.txt >>c:\ok.txt

echo "====================" c:\ok.txt

1、 在批处理中如何加换行符号?这是我的运行结果，和要求的有些出入

2005-01-13 星期四

8:38

1232005-01-13 星期四

8:38

123

我想如何变成下面的格式

2005-01-13 星期四

8:38

123

====================

2005-01-13 星期四

8:38

123

====================

2、 还有就是echo "====================" c:\ok.txt这句好像没有起作用啊？不知是什么道理

再次感谢您的帮助

七叶一枝梅

echo "====================" c:\ok.txt

应该是“echo "====================" >>c:\ok.txt”

你看你掉了什么？？

七叶一枝梅

关于换行符号，你还真把我问住了，平常没有注意到这个问题，让我们一起来翻帮助文件吧。