标题: VBS循环执行"没有发现.qdt文件,就执行关机命令" [打印本页]

---

作者: huzixuan     时间: 2007-4-15 10:11    标题: VBS循环执行"没有发现.qdt文件,就执行关机命令"

我是从 QQ群 里下载东西,因为有很多,而且必须等他们完全下载好才可以关机.
而下载未完成的文件 全部是 .qdt 格式,完成后就会转变成 他们真正的拓展名
例:
下载未完成的 文件名 (1.mp3.qdt)
下载完成的 文件名 (1.mp3)

但我又不能傻傻的等在计算机前,因此我想到了用 VBS 来循环遍历当前目录,如果在当前目录没有发现 .qdt 文件,就执行关机命令.

请问用 VBS 如何写呢?

[ Last edited by huzixuan on 2007-4-16 at 04:44 AM ]

---

作者: huzixuan     时间: 2007-4-15 21:48
如何写呢?

---

作者: huzixuan     时间: 2007-4-16 04:44
用 vbs

[ Last edited by huzixuan on 2007-4-16 at 07:25 AM ]

---

作者: baomaboy     时间: 2007-4-16 07:00
你要的东西论坛里多的很, 你只不过拼凑一下就可以了,为什么不搜索呢,
搜关机搜遍历......
剩下的就是拼了.

---

作者: huzixuan     时间: 2007-4-16 07:23
对 vbs 一窍不通的我,如果没有一段完整的代码
拼凑也是拼凑不来的。
并且我是搜索过了,确定是我无法解决的问题,我才好发帖来求助的

---

作者: Waterlive     时间: 2007-4-16 15:23
为何要用VBS而不用批处理呢....
@echo off
echo  下载完成自动关机
:1 for /r "文件夹路径" %%i in (*.qdt) do shutdown -t 0
goto 1

请高手指点下需要改进的地方..

[ Last edited by Waterlive on 2007-4-16 at 03:27 PM ]

---

作者: huzixuan     时间: 2007-4-17 08:00
1.是借机学习一下
2.因为 VBS 效率高嘛

---

作者: huzixuan     时间: 2007-4-17 08:20
set fso1=createobject("scripting.filesystemobject")
set folder1=fso1.getfolder("a")
do
a=0
set files1=folder1.files
for each fi in files1
if right(fi.path,4)=".qdt" then
a=a+1
end if
next
if a=0 then
CreateObject("Wscript.Shell").run "shutdown -s -t 999"
exit do
end if
wscript.sleep 5000
loop