Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: jgaleasm en Martes 14 de Agosto de 2007, 19:13
Título: Búsqueda De Archivos
Publicado por: 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.
Título: Re: Búsqueda De Archivos
Publicado por: ArKaNtOs en Martes 14 de Agosto de 2007, 20:21
a que te refieres con recuperar?, saber si existen? lo puedes hacer con el comando dir
Código: Text
if dir(ruta, vbDirectory) = "" then
msgbox el archivo no se encuentra
else
msgbox el archivo existe
end if
:kicking: :hola:
Título: Re: Búsqueda De Archivos
Publicado por: jgaleasm en Martes 14 de Agosto de 2007, 21:12
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.
Título: Re: Búsqueda De Archivos
Publicado por: Nebire en Jueves 20 de Septiembre de 2007, 19:30
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...