busqueda de archivo

Debes realizar implementar una función recursiva.

Saludos,


Angel J. Hernández M.
MCP - MCAD - MCSD - MCDBA
http://groups.msn.com/desarrolladoresmiranda


"Edilberto Arteaga Lopez" escribió en el mensaje
news:

Hola a todos
como hago para hacer una busqueda de un tipo de archivos en un path
especificado, pero que se pueda buscar tambien en los direcctorios que
esten
dentro de ese path
ejemplo
si indico c:\
que tambien busque en todos los folder que esten dentro de c:



Saludos.


___________________________________
Edilberto Arteaga Lopez
Coor. Sistemas
Fruit of the Loom, Honduras - Planta Tela
Para Solicitud de Soporte Tecnico favor hacerlo en la Web de MIS
http://domain-ty/ o a http://ftlmis/

Lo que hacemos en la Vida
Tiene su eco en la eternidad.

Aye en la ayuda de .net existe un ejemplo, creo que lo
encontraras bajo getDirectories

Juan Carlos S

Hola a todos
como hago para hacer una busqueda de un tipo de archivos

en un path

especificado, pero que se pueda buscar tambien en los

direcctorios que esten

dentro de ese path
ejemplo
si indico c:\
que tambien busque en todos los folder que esten dentro

de c:

Saludos.


___________________________________
Edilberto Arteaga Lopez
Coor. Sistemas
Fruit of the Loom, Honduras - Planta Tela
Para Solicitud de Soporte Tecnico favor hacerlo en la

Web de MIS

http://domain-ty/ o a http://ftlmis/

Lo que hacemos en la Vida
Tiene su eco en la eternidad.


.

Hola!

Una funcion que te busca un fichero puede ser la siguiente:


Public Function BuscarFichero(ByVal carpeta As IO.DirectoryInfo,
ByVal FicheroABuscar As String) As IO.FileInfo
Dim carpeta_hija As IO.DirectoryInfo
Dim fichero_encontrado As IO.FileInfo

For Each carpeta_hija In carpeta.GetDirectories
' Buscar en las subcarpetas
fichero_encontrado = BuscarFichero(carpeta_hija,
FicheroABuscar)

' Se ha encontrado entre los nodos hijos -> Salir
If (fichero_encontrado Is Nothing) = False Then
Return fichero_encontrado
End If
Next

' Buscar en los ficheros propios de la carpeta
For Each fichero_encontrado In carpeta.GetFiles
If fichero_encontrado.Name.ToUpper FicheroABuscar.ToUpper Then
Return fichero_encontrado
End If
Next

' No se ha encontrado en esta carpeta
Return Nothing
End Function


Para utilizarla, basta llamarla de la siguiente manera:

Dim f As IO.FileInfo
Dim d As IO.DirectoryInfo = New IO.DirectoryInfo("c:\")

f = BuscarFichero(d, "fichero.exe")
MsgBox(f.FullName)

Esta funcion buscaria recursivamente en todas las carpetas de la
unidad c:\ hasta dar con un fichero cuyo nombre es: fichero.exe

Espero que te ayude!
Roberto M. Oliva







"Juan carlos Sierra" wrote in message news:<053d01c53eb7$5e253080$...

Aye en la ayuda de .net existe un ejemplo, creo que lo
encontraras bajo getDirectories

Juan Carlos S
>Hola a todos
>como hago para hacer una busqueda de un tipo de archivos
en un path
>especificado, pero que se pueda buscar tambien en los
direcctorios que esten
>dentro de ese path
>ejemplo
>si indico c:\
>que tambien busque en todos los folder que esten dentro
de c:
>
>
>
>Saludos.
>
>
>___________________________________
>Edilberto Arteaga Lopez
>Coor. Sistemas
>Fruit of the Loom, Honduras - Planta Tela
>Para Solicitud de Soporte Tecnico favor hacerlo en la
Web de MIS
>http://domain-ty/ o a http://ftlmis/
>
>Lo que hacemos en la Vida
>Tiene su eco en la eternidad.
>
>
>.
>