VBS问题,弹出窗口函数

来源：百度知道 编辑：UC知道 时间：2024/05/05 14:08:52
帮忙写一个备份文件的VBS脚本.
要备份的文件: d:\work 目录下的所有.doc和.xls文件
备份至目录: e:\bak
由于工作需要每天都是备份一次,直接覆盖备份到e:\bak

希望用VBS的拷贝命令,不调用cmd程序.
备份成功后,弹出一个窗口,提示备份成功.弹出窗口希望不用msgbox函数.好像还有一个类同于它用法的popup吧,我也记不大清了.
弹出的窗口要有倒计时功能的,5秒后关闭,也就是"确定"按钮旁边有一个数字倒计时的.

我是求脚本的同时,顺便学习下,希望大虾能按我的要求来写,应该好写.呵..

小弟在此先谢过了..

(分不是问题,谢谢)

下面是代码:
main
Sub main
Dim fso,wsh,i
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh = CreateObject("WScript.Shell")
if not (fso.FolderExists("e:\bak")) then fso.CreateFolder("e:\bak")
fso.CopyFile "d:\work\*.doc","e:\bak\"
fso.CopyFile "d:\work\*.xls","e:\bak\"
Set fso = Nothing
For i = 5 to 1 step -1
wsh.popup "文件备份完毕!",1,"信息提示" & i & "秒钟后关闭",0
Next
set wsh = Nothing
End Sub

Set WshShell = CreateObject("WScript.Shell")
Dim CloseTime,i
CloseTime = 5
For i = CloseTime To 1 Step - 1
WshShell.popup "当前时间为" & i,1,"计时",0
Wscript.Sleep 1000
Next
MsgBox "时间到!"
Set WshShell = Nothing

这个？？
VBS是不可能显示实时的时钟的

你可以自己新建一个窗体，控件什么的可以自己放，窗体名写为：Fmsg（或其他也可以