• Jueves 28 de Marzo de 2024, 20:50

Autor Tema:  Búsqueda De Archivos  (Leído 1944 veces)

jgaleasm

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Búsqueda De Archivos
« en: Martes 14 de Agosto de 2007, 19:13 »
0
Hola a todos:
Necesito, desde VB6, recuperar todos los archivos con una extensión conocida (ejemplo m*.bak), que se ubiquen en un directorio y todos sus sub-directorios.
Estuve revisando los métodos del Filesystemobject, pero al parecer no tiene esa función.
¿alguien sabe cómo hacerlo?
Agradecido de antemano.

ArKaNtOs

  • Miembro de PLATA
  • *****
  • Mensajes: 1253
  • Nacionalidad: mx
    • Ver Perfil
Re: Búsqueda De Archivos
« Respuesta #1 en: Martes 14 de Agosto de 2007, 20:21 »
0
a que te refieres con recuperar?, saber si existen? lo puedes hacer con el comando dir

Código: Text
  1. if dir(ruta, vbDirectory) = "" then
  2.    msgbox el archivo no se encuentra
  3. else
  4.    msgbox el archivo existe
  5. end if
  6.  
:kicking:  :hola:

jgaleasm

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Re: Búsqueda De Archivos
« Respuesta #2 en: Martes 14 de Agosto de 2007, 21:12 »
0
Se agradece de todos modos, pero lo que necesito es saber los nombres de todos los archivos (con una extensión conocida) que se encuentren bajo un directorio (también conocido) o sus subdirectorios.

Nebire

  • Miembro HIPER activo
  • ****
  • Mensajes: 670
    • Ver Perfil
Re: Búsqueda De Archivos
« Respuesta #3 en: Jueves 20 de Septiembre de 2007, 19:30 »
0
monta un control file en el formulario (es como un listbox),

entonces le dices:

file1.path=ruta a la carpeta que quieres
file1.pattern= "archivo*.*a"  'se admiten comodines en cualquier parte
 de modo que si es bak haces "*.bak"

numFich=file1.listcount-1

numfich te indica todos los archivos que pasaron el filtro. si quieres que te aparezcan archivos ocultos y de sistema, tendrás que activar los atributos...
«Ma non troppo»
----> ModoVacaciones = False<----