File 获取文件的完整路径

我需要通过使用VB脚本搜索来返回文件的完整路径。例如，下面是我的文件夹：

我想在C:\目录中搜索一个名为“sample1.txt”的文件，并对其进行回显

输出将是“C:\test\test1\sample1.txt”

• 编写一个脚本并使用.Path
• 使用.Run或.Exec来

  dir/s/b

  并捕获/处理输出
从这里得到了答案：
并对其进行了一些调整：

Const fileName = "cFiles.vbs" 'Filename to search
Set fso = CreateObject("Scripting.FileSystemObject")
dir = "C:\Users\makoy\Documents\CommonFiles" 'Place directory to search

If fso.FolderExists(dir) Then _
file = FindFile(LCase(fileName), fso.GetFolder(dir))
If Len(file) = 0 Then
    WScript.Echo "Error: File Not Found"
    WScript.Quit 2
End If
Set folder = fso.GetFolder(file & "\..")
WScript.Echo folder & "\" & fileName


WScript.Quit
Function FindFile(ByRef sName, ByRef oFolder) 'As String
    FindFile = ""
    For Each file In oFolder.Files
        If LCase(file.Name) = sName Then
            FindFile = file
            Exit Function
        End If
    Next 'file
    For Each dir In oFolder.SubFolders
        FindFile = FindFile(sName, dir)
        If Len(FindFile) Then _
        Exit Function
    Next 'dir
End Function

---

回到什么？您打算如何处理路径？将其放入变量中。或者只是附和一下。