Получение полного пути к файлу

Question

Мне нужно вернуть полный путь к файлу, выполнив поиск с помощью скрипта VB. Например, вот моя папка:

И я хочу, чтобы найти файл с именем «sample1.txt» в C: \ каталог и эхо его.

Выход будет, "C: \ Test \ test1 \ sample1.txt"

Answer 1

получил ответ от сюда: http://www.computing.net/answers/programming/vbscript-to-find-file-and-return-filtered-folder-path/28076.html

и отлажены это бит:

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 

Answer 2

• Написать recursive directory walker и использовать .Path
• Использование .run или .Exec для dir /s /b и захвата/обработки выходного