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