VB6 实现文件夹遍历及文件列表获取
在 VB6 中，我们可以借助 FileSystemObject 对象轻松实现文件夹遍历和文件列表获取。
核心步骤：
- 创建
FileSystemObject对象实例。 - 使用
GetFolder方法获取目标文件夹对象。 - 遍历文件夹对象下的子文件夹和文件：
- 使用
Folders属性获取子文件夹集合，并递归调用遍历函数。 - 使用
Files属性获取文件集合，并提取文件名信息。
- 使用
代码示例：
Private Sub ListFiles(folderPath As String)
Dim fso As Object, folder As Object, file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
' 遍历子文件夹
For Each subfolder In folder.SubFolders
ListFiles subfolder.Path
Next subfolder
' 遍历文件
For Each file In folder.Files
Debug.Print file.Name
Next file
End Sub
使用方法：
调用 ListFiles 函数并传入目标文件夹路径即可。例如：
ListFiles "C:MyFolder"
该代码将递归遍历 "C:MyFolder" 文件夹及其子文件夹，并将所有文件名打印到调试窗口。
注意事项：
- 该代码仅展示了核心功能，实际应用中可能需要根据需求进行修改和扩展，例如添加文件类型过滤、路径拼接等功能。
- 请确保目标文件夹路径有效，否则代码可能出现错误。
文件大小：23KB
评论区