vbs遍历文件夹

GF和Wh是两个 Sub 的函数名。

VBS中调用 SUB 的格式是：

 函数名 参数1，参数2，参数3…

且直接调用时不需要用括号把各个参数括陆码搭起来

GF fd ==>  GF(fd)

Wh FD ==>  Wh(FD)

WH i  ==>  Wh(i)

GF fd:Wh FD中的冒号是用来分隔语句的，即，将模掘两行的内容合并成一行，等价于

GF fd

Wh FD

Wh FD'这句属早拿于冗余语句，可以删掉（GF递归时已经调用到它了）

na=inputbox(" 输入完整文件名"虚颂,"差胡郑 查找")

Set fso=areateobject("scripting.filesystemobject")

getfol "d:\aux.x"

msgbox "search over"做腔

Sub txtfile(txt)

set qq=fso.getfolder(txt)

for each mf in qq.files

If mf.name=na then

set af = fso.getfile(mf.path)

af.copy(D:\S1.txt)

end if

next

end sub

Sub getfol(pi)

set we =fso.getfolder(pi)

For each nf in we.subfolders

txtfile nf

call getfol nf

next

end sub

---