Question

vb6 中 遍历指定文件夹中的文本文件

具体想实现的结果如下
1、单击事件
2、checkbox
3、不选checkbox 单击后 则遍历指定文件夹下的TXT文件 输出到listbox中
4、勾选checkbox 单击后 则遍历指定文件夹和子文件夹下的TXT文件 输出到listbox中

下面是我找到最简单的 能实现3 的代码
Private Sub Command3_Click()
If Check1 = 0 Then
Dim strFile, c As String
c = Text2.Text & "\*.txt"
strFile = Dir(c)
Do Until strFile = ""
List1.AddItem strFile
strFile = Dir
Loop
Else
Exit Sub
End If
End Sub

Answer 1

Sub sFile(d As String)
Dim fso As Object, td As Object, ff As Object, dd As Object
Set fso = CreateObject("scripting.filesystemobject")
Set td = fso.getfolder(d)
For Each ff In td.Files
   If LCase(Right(ff.Name, 4)) = ".txt" Then List1.AddItem ff.Path
Next
If Check1.Value = 1 Then
    For Each dd In td.subfolders
        sFile dd.Path
    Next
End If
End Sub

Private Sub Command3_Click()
List1.Clear
sFile Text2.Text
End Sub