SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Visual Basic

Buscar un archivo especifico en disco

El codigo para la aplicacion busca todos los archivos del disco duro para mostrar el path de el archivo buscado.
Visitas: 45558 - 08/05/2004 23:45:29
CODIGO SIN DEMOSTRACIONCODIGO NO EJECUTABLENO CONTIENE ARCHIVO DESCARGABLE
EXPLICACION

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 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

Private Sub Command1_Click()
MsgBox PathTo("AcroRd32.exe")
End Sub

ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Buscar un archivo especifico en disco" href="http://www.tutores.org/codigo/1067/" target="_blank">Buscar un archivo especifico en disco</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
rolando
Es una página de gran ayuda para los Programadores que estan iniciando. Ok
Carlos 01/05/2004 16.50.01
Muchas gracias, me fue de mucha utilidad
ngenao
realice este proceso y solo presento el msgbox de la ruta del archivo pero no borro NADA.
pepe martin
Encuentro un problema en la macro y es que no me busca en niveles de carpetas profundos ¿A que se puede deber este problema?
David 23/09/2005 22.53.03
Muchas gracias por su publicación de código, me sirvio bastante.
Sin definir
muchas gracias, evite un error 53 file not found
fran 02-07-2008 19:36:10
No em sirvio el code, saca un error 53
enriqueojeda
...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.
Sin definir
Muchas gracias...sos un groso
Jano 28-02-2008 22:16:19
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

saludos

Alejandro
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.