访问一个文件夹下所有的文件夹中所有文件的信息

Question

我现在要做的是，选取一个工程文件夹，工程文件夹用文件夹的方式中存放了一个单独工程所有需要的文件，我现在就是要对工程文件夹下的所有文件夹进行遍历，然后访问单独工程文件夹中的每个文件，然后对每个文件进行读取！！
是不是要做成一个目录树来指定所要选择的目录，然后对目录下的文件夹中的文件进行进一步的操作？
怎么实现以上的操作比较好呢？

Answer 1

Dim strFileName As String
        
        strFileName = Dir("c:\windows\")
        
        While (Len(strFileName))
              
              Debug.Print strFileName
              strFileName = Dir        Wend

Answer 2

另参照：http://www.xxinfo.ha.cn/dnwl/wlzn/soft/chengsi/cx153.htm

Answer 3

用ListBox 或　FileListBox控件

Answer 4

Dim strFileName As String
        
        strFileName = Dir("c:\windows\")
        
        While (Len(strFileName))
              
              Debug.Print strFileName
              strFileName = Dir        Wend
记住访问第一层文件夹的时候不能使用dir函数，因为他不支持循环语句的嵌套！~！
方法是用一个数组来记录工程目录下文件夹的名字，然后用这个数组配合dir使用~

Answer 5

用标准版控件下的DriveListBox、DirListBox、FileListBox足够满足你的要求。
用DriveListBox、DirListBox做成一个目录树来指定所要选择的目录，FileListBox对目录下的文件夹中的文件进行进一步的操作
-----------------------------------------------
是不是要做成一个目录树来指定所要选择的目录，然后对目录下的文件夹中的文件进行进一步的操作？
怎么实现以上的操作比较好呢？

Answer 6

'先在窗体放三个控件：DriveListBox、DirListBox、FileListBoxPrivate Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub