VB.NET桌面应用：筛选指定扩展名文件并按文件夹名称排序

我来帮你搞定这个需求！你需要同时实现两个目标：筛选出目标目录（含子目录）下的.txt和.sql文件，并且按文件夹名称排序。先看看你原代码里的几个小问题，再给你调整后的完整实现：

原代码的问题点 #

• 你用了.OrderBy(Function(f) f.LastWriteTime).First()，这会只返回排序后的第一个文件，而不是所有符合条件的文件，而且排序依据是文件的最后修改时间，不是文件夹名称
• 递归方法DirSearch里没有处理按文件夹排序的逻辑，导致子目录的文件不会按父文件夹名称排序
• 用f1.EndsWith(".sql")的方式不够严谨，无法匹配大写扩展名（比如.SQL或.TXT）

修正后的完整实现 #

下面的代码会先按文件夹名称排序所有目录（包括子目录），再从每个目录里筛选出目标扩展名的文件，确保最终的文件列表是按文件夹名称排序的：

Private Function GetSortedFilesByFolder(rootDir As String) As List(Of String)
    Dim resultFiles As New List(Of String)()
    
    Try
        ' 1. 获取所有目录（包括子目录），并按文件夹名称排序
        Dim allDirectories As IEnumerable(Of String) = Directory.EnumerateDirectories(
            rootDir, "*", SearchOption.AllDirectories
        ).OrderBy(Function(dir) New DirectoryInfo(dir).Name)
        
        ' 先处理根目录本身
        resultFiles.AddRange(GetTargetFiles(rootDir))
        
        ' 2. 遍历排序后的每个子目录，获取目标文件
        For Each dir As String In allDirectories
            resultFiles.AddRange(GetTargetFiles(dir))
        Next
    Catch ex As Exception
        MessageBox.Show($"获取文件时出错：{ex.Message}")
    End Try
    
    Return resultFiles
End Function

' 辅助方法：获取指定目录下的.txt和.sql文件（不区分大小写）
Private Function GetTargetFiles(targetDir As String) As List(Of String)
    Dim targetExtensions As New List(Of String) From {".txt", ".sql"}
    Return Directory.EnumerateFiles(targetDir) _
        .Where(Function(file) 
                   Dim ext As String = Path.GetExtension(file).ToLower()
                   Return targetExtensions.Contains(ext)
               End Function) _
        .ToList()
End Function

' 调用示例（替换成你的文本框路径）
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim rootPath As String = Txtfolder.Text
    If String.IsNullOrEmpty(rootPath) OrElse Not Directory.Exists(rootPath) Then
        MessageBox.Show("请输入有效的目录路径！")
        Return
    End If
    
    Dim sortedFiles As List(Of String) = GetSortedFilesByFolder(rootPath)
    ' 这里可以处理sortedFiles，比如绑定到控件或输出
    For Each file As String In sortedFiles
        Console.WriteLine(file)
    Next
End Sub

关键逻辑说明 #

• 按文件夹排序：通过Directory.EnumerateDirectories获取所有子目录后，用OrderBy(Function(dir) New DirectoryInfo(dir).Name)按文件夹名称排序，确保先处理名称靠前的文件夹
• 严谨的扩展名筛选：用Path.GetExtension获取文件扩展名，转成小写后和目标扩展名对比，这样不管是.txt还是.TXT都能匹配
• 模块化拆分：把获取目标文件的逻辑拆成辅助方法GetTargetFiles，让代码更清晰易维护

如果需要让同一文件夹内的文件也按名称排序，可以在GetTargetFiles里加上.OrderBy(Function(file) Path.GetFileName(file))，调整后的辅助方法：

Private Function GetTargetFiles(targetDir As String) As List(Of String)
    Dim targetExtensions As New List(Of String) From {".txt", ".sql"}
    Return Directory.EnumerateFiles(targetDir) _
        .Where(Function(file) 
                   Dim ext As String = Path.GetExtension(file).ToLower()
                   Return targetExtensions.Contains(ext)
               End Function) _
        .OrderBy(Function(file) Path.GetFileName(file)) _ ' 同一文件夹内按文件名排序
        .ToList()
End Function

内容的提问来源于stack exchange，提问作者Nimisha Prajapati