VBA代码优化：实现网络文件夹及子文件夹文件名存在性检测

原代码仅通过Dir函数搜索指定主文件夹，无法递归遍历子文件夹。要实现包含子文件夹的全量搜索，可借助递归调用结合FileSystemObject（FSO）完成，以下是修改后的完整代码：

Sub Search_myFolder_Network()
    Dim myFolder As String
    Dim myRange As Range
    Dim myCell As Range
    Dim fso As Object
    Dim fileExists As Boolean
    
    ' 选择目标网络文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a Folder"
        .InitialFileName = Application.DefaultFilePath & "\"
        If .Show = 0 Then Exit Sub
        myFolder = .SelectedItems(1)
    End With
    
    Set myRange = Selection
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历选中的每个单元格
    For Each myCell In myRange
        fileExists = False
        ' 调用递归函数搜索文件
        Call SearchSubFolders(fso.GetFolder(myFolder), myCell.Value, fileExists)
        
        ' 写入搜索结果到右侧单元格
        If fileExists Then
            myCell.Offset(0, 1) = "File Exists"
        Else
            myCell.Offset(0, 1) = "File Doesn't Exists."
        End If
    Next myCell
    
    Set fso = Nothing
    MsgBox "搜索完成", vbInformation
End Sub

' 递归遍历子文件夹的核心函数
Private Sub SearchSubFolders(targetFolder As Object, searchFileName As String, ByRef existsFlag As Boolean)
    Dim subFolder As Object
    Dim file As Object
    
    ' 检查当前文件夹内的文件
    For Each file In targetFolder.Files
        ' 模糊匹配文件名（不区分大小写），需精确匹配可改为 file.Name = searchFileName
        If InStr(1, file.Name, searchFileName, vbTextCompare) > 0 Then
            existsFlag = True
            Exit Sub ' 找到匹配文件后立即终止当前搜索
        End If
    Next file
    
    ' 递归遍历所有子文件夹
    For Each subFolder In targetFolder.SubFolders
        If Not existsFlag Then ' 未找到匹配时才继续搜索子文件夹
            Call SearchSubFolders(subFolder, searchFileName, existsFlag)
        End If
    Next subFolder
End Sub

关键说明： #

• FileSystemObject兼容性：支持网络UNC路径（如\\server\shared\folder），能稳定遍历网络文件夹及其子目录。
• 递归逻辑优化：一旦找到匹配文件就终止当前分支的搜索，避免无效遍历提升效率。
• 匹配规则灵活：默认使用模糊匹配（文件名包含单元格内容即判定存在），可根据需求修改为精确匹配。

内容的提问来源于stack exchange，提问作者Zerlie Ann Palaac