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

代码语言

代码分类

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

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

<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>

试试其它关键字

同语言下

.使用脚本将域账号添加到客户机的本地管理员组
.删除服务器上文件
.主动ping服务器是否宕机
.自动服务器检查的vbs脚本
.VBS脚本发送邮件，密送多人，带附件，可更换账号密码
.根据文件路径复制文件
.VBA操作数据库
.双击获取公网IP到剪贴板
.定时运行ie浏览执行网址不显示浏览器窗口
.批处理生成日历

可能有用的

.使用脚本将域账号添加到客户机的本地管理员组
.删除服务器上文件
.主动ping服务器是否宕机
.自动服务器检查的vbs脚本
.VBS脚本发送邮件，密送多人，带附件，可更换账号密码
.根据文件路径复制文件
.VBA操作数据库
.双击获取公网IP到剪贴板
.定时运行ie浏览执行网址不显示浏览器窗口
.批处理生成日历

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

.多线程Socket服务器模块
.生成随机密码
.清除浮动样式
.弹出窗口居中
.抓取url的函数
.使用base HTTP验证
.div模拟iframe嵌入效果
.通过header转向的方法
.Session操作类
.执行sqlite输入插入操作后获得自动编号的ID