Buscar archivos

Lobo
11 de Marzo del 2006
Hola, necesito que busque un archivo, pero que me de el directorio en donde se encuentra ese archivo, por ejemplo yo tengo el archivo c:pepe123sol.exe
Entonces cuando busca sol.exe por toda la pc, al encontrarlo que me diga c:pepe123 (sin sol.exe)
Muchas Gracias, aqui abajo dejo un codigo que encontre, que es para bsucar archivos, trate de modificarlo, pero se me cuelga vb.

Private Sub Image5_Click()
Text2.Text = PathTo("hl.exe")
End Sub

Function PathTo(strFile As String) As String
Dim x As Integer
Dim strDirs As String
Dim strDir As String
Dim strEntry As String
strDirs = "c:" & vbNullChar
Do While Len(strDirs)
x = InStr(strDirs, vbNullChar)
strDir = Left$(strDirs, x - 1)
strDirs = Mid$(strDirs, x + 1)
If Len(Dir$(strDir & strFile)) Then
PathTo = strDir & Dir$(strDir & strFile)
Exit Function
End If
strEntry = Dir$(strDir & "*.*", vbDirectory)
Do While Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
If strEntry <> "." And strEntry <> ".." Then
strDirs = strDirs & strDir & strEntry & "" & vbNullChar
End If
End If
strEntry = Dir$
Loop
Loop
PathTo = ""
End Function