Question

VB问题： 想做一个“获取指定目录下所有文件夹名称和路径”（包含子目录）的功能

但是发现无法使用dir，是不是需要调用什么东西才能用呢？另外不能使用控件。
一般来说函数都是标蓝的，但是我写“dir”的时候 没有变色，我觉得应该是需要引用什么文件

Answer 1

要想获得目录下所有文件名，得先得到一个所有文件的集合，可以用fso搞定。
引用 mircosoft scripting runtime，然后：
Dim fs As New FileSystemObject '定义fso对象和文件夹、文件对象
Dim fd As Folder
Dim fl As File
Set fd = fs.GetFolder("D:\_sys\") '创建文件夹对象
For Each fl In fd.Files '文件夹对象的Files属性是一个集合，包括目录下的所有文件对象
Print fl.Path & fl.Name '枚举每个文件，然后输出
Next
这只是一个文件夹，文件夹对象还有个属性，SubFolders，也是一个集合，代表目录下的所有子文件夹，可以参照上面的方法枚举。但是只有1级子文件夹，要遍历所有的话可以用递归的方式，LZ可以自己试试O(∩_∩)O

追问

如何引用mircosoft scripting runtime？？我是用记事本编辑的

追答

⊙﹏⊙b用记事本写……如果是自带的记事本，输入啥都不会自动变色的╮(╯▽╰)╭VB里面 工程→引用，然后找。只用记事本写的话，我的级别还不够O__O"…

Answer 2

fso对象了