[问题求助] vbs脚本运行后如何在一定时间后显示时间自动结束

qzl990628

On error resume next
Dim fso, d,dc,f,start,current
Set fos = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
Set f = fso.GetFile(d &"请带我回家.txt")
If left(f,2)=d then msgbox "我是您的"&d&"U盘或移动硬盘，别忘带我回家！ ",vbcritical,"主人：您好！"
Next

运行的结果是：

谁能 帮我加代码运行后在15秒后自动结束本脚本的运行成为

最好用shutdown命令限时多少秒自动结束本脚本的运行。

qzl990628

回复 2# czjt1234
非常感谢czjt1234，您给我的提示，我已经写好代码，能很好的运行。谢谢！！！

qzl990628

On error resume next
Dim fso, d,dc,f,objWsh
set objWsh = CreateObject("Wscript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
  Set f = fso.GetFile(d&"\请带我回家.txt")
  If Left(f,2)=d Then
     intNumber = objWsh.Popup("我是您的"&d&"U盘或移动硬盘，别忘带我回家！ ", 10, "主人：您好！", 48)
  End If
Next

本脚本运行后，需要在U盘里找“请带我回家.txt”这个文件，如果有哪位大虾告诉我能自动识别系统的USB进程就好了，改为寻找这个进程就更人性化了，谢谢