$sFileSearch = 'file.au3'
$sSearch = ''
Dim $aDir[4] = [3, @HomeDrive, @DesktopDir, @AppDataDir]
For $i = 1 To $aDir[0]
If FileExists($aDir[$i] & '\' & $sFileSearch) Then
$sSearch &= $aDir[$i] & '\' & $sFileSearch & @CRLF
EndIf
Next
If $sSearch Then
MsgBox(64, 'Info', StringTrimRight($sSearch, 2))
Else
MsgBox(16, 'Error', 'No')
EndIf