Solo debemos introducir el codigo, crear un Boton llamado command1. modificar la linea 6 con la letra de la unidad de disco duro en la que vamos a realizar la busqueda. y en la linea 29 modificar AcroRd32.exe por el nombre del archivo que vamos a buscar.
Una vez ejecutado el codigo, se mostrará una alerta con la direccion fisica hacia el archivo.
CODIGO
// Codigo ofrecido por Tutores.org
Function PathTo(strFile AsString) AsString
Dim x AsInteger
Dim strDirs AsString
Dim strDir AsString
Dim strEntry AsString
strDirs = "c:" & vbNullChar
DoWhile 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)
ExitFunction
EndIf
strEntry = Dir$(strDir & "*.*", vbDirectory)
DoWhile Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
...Debo admitir que soy un experimentador en este atractivo lenguaje de eventos (Visual Basic 6.0), Estoy jubilado y espero sea este mi pasatiempo favorito, estoy realizando un sencillo proyecto para la gestión de datos para la División de la Policía Escolar del Municipio Bolivariano Libertador ubicada en Caracas Venezuela. Los problemas los he ido solventando y este es uno de ello La Búsqueda de un archivo específico en una base de datos. así como trabajar en excel y word desde mi proyecto en Visual Basic. Ah, se me olvidaba lo de imprimir el formulario con la información solicitada. Ojalá y puedan enviarme esos código para solventar esta inquietud y satisfacer ego a los 61 años. Gracias.
mira hice lo que pude con el codigo pero que ver la posibilidad de crear un textbox donde escriba el nombre del archivo que voy a buscar en mi computador y un comandbuton para dar la orden
para que lo comience a buscar, yo que tal vez para U.D. esto sea muy facil si me puede ayudar se lo agradeceria