遍曆一個檔案夾下的所有檔案夾檔案夾

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