vbs遍歷資料夾中的檔案和資料夾,及其子文
阿新 • • 發佈:2019-02-01
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") '遍歷