咨询内容：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") '遍历
打印本文
关闭窗口