遍历一个文件夹下的所有文件夹文件夹代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】遍历一个文件夹下的所有文件夹文件夹

作者:Dezai.CN / 发布于2011/8/22/ 1218

<div>'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</div>
<div>FilesTree("F:\deltest\deltest") '遍历
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)