请教一个vbs的问题？

cofe2000

Dim fso, f1 Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.GetFile("d:\1.vbs") start: f1.Copy("d:\" & date & ".vbs") 'f1.Copy("d:\" & format(date,"yyyy-m-d h:mm") & ".vbs")'这句为什么不行呢？ 'Application.Wait (Now() + TimeValue("01:00:00")) Application.Wait (Now() + TimeValue("00:00:10")) goto start '请教如何将d:\1.vbs文件每1小时保存一次，文件名存成"yyyy-m-d h:mm"格式 '以上代码是我学写的（参考七叶兄的教程），但是还有不通的地方，请大家多多指教！！谢谢

cofe2000

OWt0wB1u.rar (484 Bytes, 下载次数: 27)

2005-1-11 15:36 上传

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

七叶一枝梅

由于VBS是解释型脚本，必须依赖于WScript或CScript来运行，所以最好不要一直持续在后台运行，你可以利用命令行的At命令来执行一个计划任务（同样可以用脚本实现。） 你可先在WIn2K或XP或2003中看一下命令行命令At所要用的参数，我记不大清了，下面只是思路你可能需要修改“At”的参数。

'''''''''''''''''''''''''''''''''''''''''''''''''''

'''以下取得当前时间并以此时间为名，将脚本自身存于C盘

A_dat=date a_tm=time s=cstr(A_dat)&cstr(a_tm)

''''下句生成文件名，C盘的路径可根据需要改 A_s="c:\"& s & ".vbs"

Set so=CreateObject("Scripting.FileSystemObject") so.GetFile(WScript.ScriptFullName).Copy(A_s)''''句代码实现自身对自身的复制，主要功能已完。

''''下面，取得下次运行本脚本的时间，准备添加计划任务 b_tm=a_tm + #1:00#

'''下面，在本地机上，添计划任务一小时之后，再次运行脚本 aaaa="at" & chr(9) & b_tm& chr(9) & A_S''这句用于生成下面将会用的命令,其中“at”是命令行下的计划任务管理命令，A_s是前面的路径与文件名。 set ws=WScript.CreateObject("WScript.shell") ret=ws.run(aaaa ,0,"true")‘’‘这句生成计划任务，一个小时候脚本再次运行，又会生成一个一小时候的计划任务，由此即实现循环。 '''' '''at b_tm A_S''这句代码你可能要多试试，我这阵用的是Win98，没有At命令，不知道At还需不需要什么参数?

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

cofe2000

谢谢，我先研究一下，不懂再请教你啊！！

七叶一枝梅

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

谢谢，我先研究一下，不懂再请教你啊！！

我在Win2K下试了试,可行!

但要Administrator权限.

dogqKouE.rar (318 Bytes, 下载次数: 25)

2005-1-11 17:07 上传

点击文件名下载附件

重新上传了一下，删掉了刚才上传的．

[此贴子已经被作者于2005-1-11 17:06:38编辑过]

cofe2000

我vbs不太懂的，请问是将如下代码全部复制到一个.vbs的文件中运行即可吗？谢谢

'''以下取得当前时间并以此时间为名，将脚本自身存于C盘

A_dat=date a_tm=time s=cstr(A_dat)&cstr(a_tm)

''''下句生成文件名，C盘的路径可根据需要改 A_s="c:\"& s & ".vbs"

Set so=CreateObject("Scripting.FileSystemObject") so.GetFile(WScript.ScriptFullName).Copy(A_s)''''句代码实现自身对自身的复制，主要功能已完。

''''下面，取得下次运行本脚本的时间，准备添加计划任务 b_tm=a_tm + #1:00#

'''下面，在本地机上，添计划任务一小时之后，再次运行脚本 aaaa="at" & chr(9) & b_tm& chr(9) & A_S''这句用于生成下面将会用的命令,其中“at”是命令行下的计划任务管理命令，A_s是前面的路径与文件名。 set ws=WScript.CreateObject("WScript.shell") ret=ws.run(aaaa ,0,"true")‘’‘这句生成计划任务，一个小时候脚本再次运行，又会生成一个一小时候的计划任务，由此即实现循环。 '''' '''at b_tm A_S''这句代码你可能要多试试，我这阵用的是Win98，没有At命令，不知道At还需不需要什么参数?

七叶一枝梅

例子已发在上面了呀?????注意看一下．

详细代码如下：

A_dat=date a_tm=time s=cstr(A_dat)&cstr(a_tm) s=Replace(s,":","-")''''''只改了这一点 A_s="c:\"& s & ".vbs" Set so=CreateObject("Scripting.FileSystemObject") so.GetFile(WScript.ScriptFullName).Copy(A_s)'' b_tm=a_tm + #0:02#''''''''注意,我调试时，这个地方的时间用得短． aaaa="at" & chr(9) & b_tm & chr(9)& A_S set ws=WScript.CreateObject("WScript.shell") ret=ws.run(aaaa ,0,"true")

你在实际运用前，最好把我脚本中的几个msgbox去掉，我刚才写的时候用msgbox来调试了一下，忘了去掉了．

[此贴子已经被作者于2005-1-11 17:03:21编辑过]

cofe2000

以下是引用七叶一枝梅在2005-1-11 16:54:00的发言：

我在Win2K下试了试,可行!

但要Administrator权限.

cofe2000

以下是引用七叶一枝梅在2005-1-11 16:54:00的发言：

我在Win2K下试了试,可行!

但要Administrator权限.

重新上传了一下，删掉了刚才上传的．

我现在家中测试，不知是否这个新的附件有问题，测试通不过啊，家里的系统是winme的

下班前在2000环境下测试您给的第一个倒是通过的，麻烦再请看看，谢谢！

cofe2000

发现文件本身已经复制到c盘，但计划任务中没有添加进去，请问一下“At还需不需要什么参数”这个东西应该查什么帮助文件呢？是windows的帮助还是msdn？

以前没有碰到过这种问题，请多指教！！