用VBS实现查找一个路径下面所有子目录的路径

背景：

需要输出C:\Test 路径下面所有子文件的目录

实现代码：

Set oFso = CreateObject("Scripting.FileSystemObject")
dim a
a=""
msgbox "scanning"
treeIt("c:\Test")
set f=ofso.opentextfile("AllPath.txt",2,true)

f.write a
f.close
msgbox "OK"

Function TreeIt(sPath)
   on error resume next
   Set oFso = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFso.GetFolder(sPath)
   Set oSubFolders = oFolder.Subfolders
   Set oFiles = oFolder.Files
   For Each oFile In oFiles