Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Visual Basic
Code

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.
Visitas: 49,051 - 08/05/2004 23:45:29
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
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

  1. Function PathTo(strFile As String) As String
  2. Dim x As Integer
  3. Dim strDirs As String
  4. Dim strDir As String
  5. Dim strEntry As String
  6. strDirs = "c:" & vbNullChar
  7. Do While Len(strDirs)
  8. x = InStr(strDirs, vbNullChar)
  9. strDir = Left$(strDirs, x - 1)
  10. strDirs = Mid$(strDirs, x + 1)
  11. If Len(Dir$(strDir & strFile)) Then
  12. PathTo = strDir & Dir$(strDir & strFile)
  13. Exit Function
  14. End If
  15. strEntry = Dir$(strDir & "*.*", vbDirectory)
  16. Do While Len(strEntry)
  17. If (GetAttr(strDir & strEntry) And vbDirectory) Then
  18. If strEntry <> "." And strEntry <> ".." Then
  19.   strDirs = strDirs & strDir & strEntry & "" & vbNullChar
  20. End If
  21. End If
  22. strEntry = Dir$
  23. Loop
  24. Loop
  25. PathTo = ""
  26. End Function
  27.  
  28. Private Sub Command1_Click()
  29. MsgBox PathTo("AcroRd32.exe")
  30. 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
Comentario usuario
rolando
2 5
Es una página de gran ayuda para los Programadores que estan iniciando. Ok
Comentario usuario
01/05/2004 16.50.01
1 5
Muchas gracias, me fue de mucha utilidad
Comentario usuario
ngenao
1 5
realice este proceso y solo presento el msgbox de la ruta del archivo pero no borro NADA.
Comentario usuario
pepe martin
4 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
23/09/2005 22.53.03
4 5
Muchas gracias por su publicación de código, me sirvio bastante.
Comentario usuario
Sin definir
5 5
muchas gracias, evite un error 53 file not found
Comentario usuario
02-07-2008 19:36:10
5 5
No em sirvio el code, saca un error 53
Comentario usuario
enriqueojeda
4 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
Sin definir
3 5
Muchas gracias...sos un groso
Comentario usuario
28-02-2008 22:16:19
1 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
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.