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