当前位置：首页 > 资讯 > 技术文档

VBS教程：属性-SubFolders 属性

时间：2020-06-16 09:35 编辑：来源：阅读：
扫一扫，手机访问

摘要：VBS教程：属性-SubFolders 属性

SubFolders 属性

返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的 [b]Folders[/b] 集合。 [code][i]object.[/i]SubFolders [/code] [b]object[/b] 应为 [b]Folder[/b] 对象的名称。 [h3]说明[/h3]以下代码举例说明如何使用 [b]SubFolders[/b] 属性：

[code]Function ShowFolderList(folderspec)   Dim fso, f, f1, s, sf   Set fso = CreateObject("Scripting.FileSystemObject")   Set f = fso.GetFolder(folderspec)   Set sf = [b]f.SubFolders[/b][/code]   [code]For Each f1 in sf[/code][code]      s = s & f1.name [/code][code]      s = s & "<BR>"[/code][code]   Next[/code][code]   ShowFolderList = s[/code][code]End Function[/code]

全部评论(0)

上一篇：用vbscript合并多个文本文件的代码
下一篇：VBS教程：方法-MoveFile 方法

资讯排行榜
更多>>