Visual Basic - Buscar un archivo especifico en disco
Códigos Visual Basic
El codigo para la aplicacion busca todos los archivos del disco duro para mostrar el path de el archivo buscado.
Tutores.org
Mostrando Codigo - Visual Basic
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 -->
<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
Comentario usuario
rolandorolando
3
5
Es una página de gran ayuda para los Programadores que estan iniciando. Ok
Comentario usuario
ngenaongenao
3
5
realice este proceso y solo presento el msgbox de la ruta del archivo pero no borro NADA.
Comentario usuario
pepe martinpepe martin
5
5
Encuentro un problema en la macro y es que no me busca en niveles de carpetas profundos ¿A que se puede deber este problema?
Comentario usuario
David
23/09/2005 22.53.03
1
5
Muchas gracias por su publicación de código, me sirvio bastante.
Comentario usuario
enriqueojedaenriqueojeda
2
5
...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.
Comentario usuario
Jano
28-02-2008 22:16:19
3
5
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
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