vbs遍历文件夹

Question

你好：我想知道代码的GF fd:Wh FD和WH i是什么意思啊

谢谢了，初学者

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
set fd=fso.getfolder("F:\test222")

GF fd:Wh FD
Sub GF(fol)
Dim i
For Each i In fol.SubFolders
WH i
Next
set fol2=fol.subfolders
for each fs2 in fol2
GF fs2
next
End Sub

Sub Wh(fol)
Dim i
For Each i In fol.Files
If LCase(fso.GetExtensionName(i)) = "cxx" Then
b=fso.GetBaseName(i)
msgbox b
end if
Next
End Sub

Answer 1

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递归时已经调用到它了）