vbs 遍历一个文件夹

Function FilesTree(sPath)    
'遍历一个文件夹下的所有文件夹文件夹    
    Set oFso = CreateObject("Scripting.FileSystemObject")    '如f:\
    Set oFolder = oFso.GetFolder(sPath)    
    Set oSubFolders = oFolder.SubFolders    
        
    Set oFiles = oFolder.Files    
    For Each oFile In oFiles    
        'WScript.Echo oFile.Path    
' writetofile(oFile.Path) 
        'oFile.Delete    
    Next   
        
    For Each oSubFolder In oSubFolders    
        'WScript.Echo oSubFolder.Path    
        'oSubFolder.Delete    
writetofile(oSubFolder.Path) 
        FilesTree(oSubFolder.Path)'递归    
    Next   
        
    Set oFolder = Nothing   
    Set oSubFolders = Nothing   
    Set oFso = Nothing   
End Function   
   
FilesTree(inputbox("Input Parent Folder:")) '遍历   
msgbox("ok")

function writetofile(s) 
Set oFso = CreateObject("Scripting.FileSystemObject")    
if oFso.FileExists("folder.txt") then

else 
set ts=oFso.createtextfile("folder.txt",true) 
ts.close 
end if

Set fs=oFso.OpenTextFile("folder.txt",8,True) 
fs.WriteLine(s) 
fs.close

end function