Buscar archivos

Hola Pablo,

espero que esta rutina te ayude.

Dim Files As String()
Dim File As String
Dim strDirectorio As String = "C:\"
Files = Directory.GetFiles(strDirectorio, "*.jpg")
Dim miFileInfo As FileInfo
For Each File In Files
TextBox1.Text = TextBox1.Text & (Mid(File, strDirectorio.Length
+ 1))
Next

Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
http://www.portalvb.com/
http://weblogs.golemproject.com/jorge/


"Pablo Fabian Savino" wrote:

Hola,

como puedo buscar archivos de una extencion determinada en una carpeta de mi
disco?

saludos