Visual Basic - Listar archivos dentro de una carpeta

Como puedo listar los archivos que de encuentran dentro de una carperta, para luego eliminarlos y por ultimo eliminar la carpeta, yo se que con el FileListBox se pueden listar, pero no quiero usarla, pues esto se haria por debajo, para que el usuario no se de cuenta, se que con alguna(s) Api se pueden listar, pero no se cual en especifico.

Gracias.

Hola
Pues lo que necesitas no es muy complicado y lo puedes hacer sin necesitad del API de windows lo unico que necesitas es usar la funcion Dir te coloco un ejemplo de como se usa.

Coloca en un formulario un listbox y un boton con el siguiente codigo

'----------------------------------------------------------------
Private Sub Command1_Click()
Dim Ruta As String
Dim Archivo As String
Ruta = "C:\*.*"
Archivo = Dir(Ruta, vbArchive)
While Archivo <> ""
List1.AddItem Archivo
Archivo = Dir
Wend
End Sub
'----------------------------------------------------------------

Te lo explico en.
en la variable Ruta se almacena la carpeta en la que se quiere listar en este caso C:\ puede ser tambien c:\TuCarpeta\

Junto con la ruta hay que especificar que timpo de archivo se quiere listar por ejemplo *.exe *.zip en nuestro ejemplo *.* para que traiga todos los archivos

Luego en la variable Archivo es donde se gurdara el nombre del archivo que se esta listando en ese momento.

Para inicializar el listado de archivo usamos la sigiente linea

Archivo = Dir(Ruta, vbArchive)
Con esta le decimo que nos liste el archivos (el parametro vbArchive le indica a vb que debe buscar solo archivos normales ya que sin este nos traeria carpetas)

una vez que ya se inicia el filtro lo unico que tenemos que hacer es un ciclo hasta que no hayan mas archivos con esa extencion

While Archivo <> ""
List1.AddItem Archivo
Archivo = Dir
Wend

Cuando la variable Archivo este basia significa que no hay mas archivos para listar

Espero haber sido de ayuda

Saludos
http://www.theemulator.tk

No me funciona el codigo, me tira un error de compilación No conciden los tipos y es en la linea donde por primera vez a Archivo se le asigna Dir

Te adjunto el codigo para que revises
Public Sub EliminarArchivos(DirCarpeta As String)
Dim Ruta As String
Dim Archivo As String
Ruta = DirCarpeta & "\*.*"
Archivo = Dir(Ruta, vbArchive)
While Archivo <> ""
FrmPrueba.List1.AddItem Archivo
Archivo = Dir
Wend
End Sub

Hola

Pues ya probe el codigo que me pasaste y no bota ningun error

Para probarlo de nuevo crear un formulario nuevo coloca un listobox un button y pega este codigo

Private Sub Command1_Click()
EliminarArchivos "C:"
End Sub

Public Sub EliminarArchivos(DirCarpeta As String)
Dim Ruta As String
Dim Archivo As String
Ruta = DirCarpeta & "\*.*"
Archivo = Dir(Ruta, vbArchive)
While Archivo <> ""
List1.AddItem Archivo
Archivo = Dir
Wend
End Sub


Saludos
http://www.theemulator.tk

me funciono perfectamente

el ejercicio funciona perfecto , pero hay una cosa si seria posible que solo busque por dos o varias extensiones ,he probado con pdf y *.* pero solo me funciona por separado la idea es que me busque por jpj y pdf a la vez ,,pero solo tengo una opcion ,¿alguna idea ???

Saludos, espero te sirva la modificación, y felices líneas de programac10n.

Se modifico para que se pueda indicar el Listbox donde se cargaran los datos, y tienes la opcion de eliminar limpiar el Listbox o no para seguir acumulando un listado de archivos.

saludos y felices líneas de porgramac10n.