Нужно чтоб программа нашла и вернула полный путь файла "qwer.dat", корорый находится на диске "С:\" - VB

Формулировка задачи:

Мне нужно чтоб программа нашла и вернула полный путь файла "qwer.dat", корорый находится на диске "С:", в какойто системной папке и этот файл только один (второго на этом диске с таким именем нет). Такое можна реализовать?

Решение задачи: «Нужно чтоб программа нашла и вернула полный путь файла "qwer.dat", корорый находится на диске "С:\"»

textual
                            Листинг программы 
                        

                            Private mobjFSO As New FileSystemObject
 
Private Sub Command1_Click()
    ProcessFolder "c:\"
End Sub
 
Private Sub ProcessFolder(ByVal pstrRootFolder As String)
    
    Dim objFolder As Folder
    Dim strFolder As String
    Dim strPath As String
    
    strFolder = pstrRootFolder
 
    For Each objFolder In mobjFSO.GetFolder(strFolder).SubFolders
        DoEvents
        strPath = mobjFSO.BuildPath(strFolder, objFolder.Name)
           If mobjFSO.FileExists(strPath & "\qwer.dat") Then
        MsgBox "Есть файл - " & strPath & "\qwer.dat"
        End If
        
        ProcessFolder strPath
    Next objFolder
    
End Sub
                        