UC知道VBS循环问题
来源：百度知道 编辑：UC知道 时间：2024/07/04 09:22:52
我是菜鸟，没学过VBS,只是网上看了看。我想用下面的脚本删除文件，可惜它会无限循环，
不知道怎么定义下面的js，我中间添加过msgbox，发现只有把第六行的js改成具体数字就不会无限循环了，可是第三行的js赋的值也可以打印出来啊，为什么能赋值就是不能用呢？
dim a,ctr,qs,js
qs= InputBox("请输入你要删除的起始文件夹名称")
js= InputBox("请输入你要删除的最后个文件夹名称")
ctr=qs '设置计数器
do
if ctr=js then
msgbox("删除完成")
exit do
else
set c=createobject("wscript.shell")
c.run "cmd /c rd " & ctr & "..\/s/q",0,true
ctr=ctr+1
end if
loop
不知道怎么定义下面的js，我中间添加过msgbox，发现只有把第六行的js改成具体数字就不会无限循环了，可是第三行的js赋的值也可以打印出来啊，为什么能赋值就是不能用呢？
dim a,ctr,qs,js
qs= InputBox("请输入你要删除的起始文件夹名称")
js= InputBox("请输入你要删除的最后个文件夹名称")
ctr=qs '设置计数器
do
if ctr=js then
msgbox("删除完成")
exit do
else
set c=createobject("wscript.shell")
c.run "cmd /c rd " & ctr & "..\/s/q",0,true
ctr=ctr+1
end if
loop
这段代码确实有问题，前面ctr=qs 是用文件夹名作为循环标志，到后面又ctr=ctr+1 用记数作标志，这样会造成ctr永远不会等于js，而造成死循环。改的方法是：把js= InputBox("请输入你要删除的文件夹数：") ，从里面输入数字。