Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Function SearchFile(ByVal Filename As String) As String
    Dim R As Long, i As Long, SearchPath As String
    For i = 0 To 25
        SearchPath = Chr$(i + 65) & ":\"
        If GetDriveType(SearchPath) = 3 Then
            SearchFile = String$(1024, 0)
            R = SearchTreeForFile(SearchPath, Filename, SearchFile)
            If R <> 0 Then SearchFile = Split(SearchFile, Chr(0))(0): Exit Function
        End If
    Next
    SearchFile = "没有找到匹配项！"
End Function

Private Sub Command1_Click() '查找
    Text2 = SearchFile(Text1) 'Text1为精确的文件名(包括文件的扩展名)，text2为结果
End Sub