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") '遍历