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

jgaleasm · « **en:** Martes 14 de Agosto de 2007, 19:13 »

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

a que te refieres con recuperar?, saber si existen? lo puedes hacer con el comando dir

Código: Text

if dir(ruta, vbDirectory) = &#34;&#34; then
   msgbox el archivo no se encuentra
else
   msgbox el archivo existe
end if
 

jgaleasm

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

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

SoloCodigo

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

jgaleasm

Búsqueda De Archivos

ArKaNtOs

Re: Búsqueda De Archivos

jgaleasm

Re: Búsqueda De Archivos

Nebire

Re: Búsqueda De Archivos