咨詢內(nèi)容：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:\hangyedaimashiyan") '遍歷
打印本文
關(guān)閉窗口