vbs遍历文件夹中的文件和文件夹，及其子文件

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