减小字体
增大字体- ·上一篇文章：一个最简单的vbs类
- ·下一篇文章：用VBS增加一个快捷的命令行
- ·百度中搜索更多的关于“vbs遍历目录”相关内容
- ·谷歌中搜索更多的关于“vbs遍历目录”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
vbs遍历目录
Function TreeIt(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
Next
For Each oSubFolder In oSubFolders
WScript.Echo oSubFolder.Path
TreeIt(oSubFolder.Path)'递归
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
TreeIt("c:\1") '遍历
