[求助]遍历文件夹下级的所有文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：1616143515(1).png

下面是遍历下一级的文件，显示出两级，还报错了，不知错在那里？如何遍历出下下下...级的所有文件，总不能写出n个For Each吧？有什么更好的思路？

Dim f As String = "f:\"
For Each File As String In FileSys.GetFiles(f)
    Dim a As String = file
    Output.Show(a)
Next

For Each dir As String In FileSys.GetDirectories(f)
    If dir IsNot Nothing Then
        For Each File2 As String In FileSys.GetFiles(dir)
            Dim a2 As String = file2
            Output.Show(a2)
        Next
    End If
Next

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取名称.rar

下面的代码我也看了很多遍，可是增加递归函数时s参数总出错，不知道哪里的问题，想用窗口“提取所有文件名称”按钮提取，请老师帮忙看一下，怎么完善一下？谢谢！

内部函数，函数名：递归，代码：

Dim path As String = args(0)
Dim ls As List(of String) = args(1)
For Each file As String In FileSys.GetFiles(path)
    Dim finfo As new FileInfo(file)
    If finfo.Hidden = False Then
        ls.add(file)
    End If
Next
For Each p As String In FileSys.GetDirectories(path)
    Dim s As new System.Security.AccessControl.DirectorySecurity(p, System.Security.AccessControl.AccessControlSections.Access)
    If s.AreAccessRulesProtected = False Then
        Functions.Execute("递归", p, ls)
    End If
Next

调用测试：
Dim lst As new List(of String)
Functions.Execute("递归", "C:\foxtable\Development",lst)
MessageBox.show(lst.Count)

测试通过

内部函数，函数名：递归，代码：

Dim path As String = args(0)
Dim ls As List(of String) = args(1)
Dim s1 As List(of String) = args(2)
For Each file As String In FileSys.GetFiles(path)
If file.Contains(s1) Then
    Dim finfo As new FileInfo(file)
    If finfo.Hidden = False Then
        ls.add(file)
    End If
End If
Next
For Each p As String In FileSys.GetDirectories(path)
    Dim s As new System.Security.AccessControl.DirectorySecurity(p, System.Security.AccessControl.AccessControlSections.Access)
    If s.AreAccessRulesProtected = False Then
        Functions.Execute("递归", p, ls)
    End If
Next

调用测试：
Dim lst As new List(of String)
Dim s1 As String = e.Form.Controls("TextBox3").text
Functions.Execute("递归", "C:\foxtable\Development",lst,s1)
MessageBox.show(lst.Count)

增加递归函数时，If file.Contains(s1) Then这一行还是会出错

测试成功！谢谢老师！

还有一个问题：如果我提取所有下级的 “文件夹名称”

Dim path As String = args(0)
Dim ls As List(of String) = args(1)
Dim s1 As String = args(2)
For Each file As String In FileSys.GetFiles(path)
    If file.Contains(s1) Then
        Dim finfo As new FileInfo(file)
        If finfo.Hidden = False Then
            ls.add(file)
        End If
    End If
Next
For Each p As String In FileSys.GetDirectories(path)
    Dim s As new System.Security.AccessControl.DirectorySecurity(p, System.Security.AccessControl.AccessControlSections.Access)
    If s.AreAccessRulesProtected = False Then
        Functions.Execute("递归", p, ls, s1 )
    End If
Next

我把GetFiles改成GetDirectories,是否合理？蓝色部分的代码又该怎么改呢？

我改了一下，提取文件夹

内部函数，函数名：递归文件夹，代码：

Dim path As String = args(0)
Dim ls As List(of String) = args(1)
Dim s1 As String = args(2)
For Each file As String In FileSys.GetFiles(path)
    If file.Contains(s1) Then
        Dim finfo As new FileInfo(file)
        If finfo.Hidden = False Then
            Dim ifo As new FileInfo(file)
            ls.add(ifo.Path)
        End If
    End If
Next
For Each p As String In FileSys.GetDirectories(path)
    Dim s As new System.Security.AccessControl.DirectorySecurity(p, System.Security.AccessControl.AccessControlSections.Access)
    If s.AreAccessRulesProtected = False Then
        Functions.Execute("递归文件夹", p, ls, s1 )
    End If
Next

测试：

Dim lst As new List(of String)
Dim s1 As String = e.Form.Controls("TextBox3").text
Functions.Execute("递归文件夹", "C:\foxtable\Development",lst,s1)

Dim xt As String
For Each nm As String In lst
xt = xt & "|" & nm
Next

MessageBox.show(xt)

测试通过

再排除重复OK

主题：[求助]遍历文件夹下级的所有文件？