Excel VBA文件名搜索返回完整路径

Sub SearchFile()
    Dim fso As Object
    Dim folderPath As String
    Dim fileName As String
    Dim filePath As String
    
    ' 设置文件夹路径和文件名
    folderPath = "C:\Folder\Subfolder\" ' 替换为实际的文件夹路径
    fileName = "example.xlsx" ' 替换为实际的文件名
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件是否存在
    If fso.FileExists(folderPath & fileName) Then
        ' 获取文件的完整路径
        filePath = folderPath & fileName
        MsgBox "文件的完整路径为：" & filePath
    Else
        MsgBox "文件不存在！"
    End If
    
    ' 释放对象
    Set fso = Nothing
End Sub