[问题求助] [已解决]VBS脚本循环搜索X盘目录的某文件为什么不会自动终止？

sub f(x)
for each c in fso.getfolder(x).files
if instr(1,c,wc,1)>0 then
fso.deleteFile c
msgbox "ok"
exit sub
end if
next
end sub
复制代码

while true

d pth

wscript.sleep 1000

wend
复制代码

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")

wc="aa.exe"
pth="e:\"

d pth
wscript.sleep 1000

sub d(x)
for each i in fso.getfolder(x).subfolders
f i
next
end sub

sub f(x)
for each c in fso.getfolder(x).files
if instr(1,c,wc,1)>0 then
fso.deleteFile c
msgbox "ok"
end if
next
end sub
复制代码

Set Fso = CreateObject("scripting.filesystemobject")
Set Folder = Fso.GetFolder("e:\")
set SubFolders = Folder.SubFolders
do
For Each SubFolder In SubFolders
xf = SubFolder&"\xxx.txt"
If Fso.FileExists(xf) then
Fso.DeleteFile xf, True
exit do
End If
Next
wscript.sleep 100
loop
复制代码