vbs问题，谢谢参与！

Sub Visit(folder) '先序遍历
' 代码处理
Set oFolder=Fsys.GetFolder(folder)
Set sFolder = oFolder.SubFolders

'If sFolder.Count=0 Then Msgbox "无子目录"

For Each fd In sFolder
Visit(fd)
Next
End Sub

言简意该！

晕死!推荐你去看欢乐时光的源代码！
http://www.qute.cn/bj/artshow.asp?id=211

主要部分：
Function Fnext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
''初始化变量
If Of.FileExists(S) Then
''如果S存在于当前文件夹中
fpath = Of.GetFile(S).ParentFolder
''得到文件的父目录名
fname = S
''得到文件名
ElseIf Of.FolderExists(S) Then
''不存在于当前文件夹中，则得到目录名
fpath = S
T = True
Else
fpath = Dnext(Of, "")
''得到当前盘符--即根目录
End If
Do While True
Set gf = Of.