Ayuda: Como hago para... Con ListBox..

[dtodo_2000]

Hola, Quisiera saber si alguien me puede decir como hago para que cuando seleccione una carpeta (FolderBrowserD ialog) todos los archivos dentro de la carpeta, se agregen a una lista (ListBox). de antemano gracias.

PD: Ocupo Visual Basic 2005 Express Edition.
                   

[ranefi]

Hola, Quisiera saber si alguien me puede decir como hago para que cuando seleccione una carpeta (FolderBrowserD ialog) todos los archivos dentro de la carpeta, se agregen a una lista (ListBox). de antemano gracias.

PD: Ocupo Visual Basic 2005 Express Edition.
                   

Hola dtodo_2000, buen día y bienvenido al foro. Aquí te muestro el código que necesitas.

Agregar 1 control Button, 1 ListBox e insertar el siguiente código en un...

Formulario

Código:

Public Sub AgregaArchivos()
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim Directorio As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Dim InfoArchivo As IO.FileInfo() = Directorio.GetFiles()
            Dim Archivo As IO.FileInfo

            For Each Archivo In InfoArchivo
                If Archivo.Extension = ".txt" Then
                    ListBox1.Items.Add(Archivo)
                End If
            Next
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AgregaArchivos()
    End Sub

Espero te sea de utilidad. Nos vemos.

[dtodo_2000]

Muchas gracias, pero ahora solo 2 molestias mas.

1.- Que significado tiene "IO"?

2.- Como hago para que no  me muestre las extensiones de archivo?

[ranefi]

Muchas gracias, pero ahora solo 2 molestias mas.

1.- Que significado tiene "IO"?

2.- Como hago para que no  me muestre las extensiones de archivo?

Hola dtodo_2000.

1.- Input/Output (Entrada/Salida)

2.- Deberás hacer lo siguiente

Agregar 1 control Button, 1 ListBox, 1 FolderBrowserD ialog e insertar el siguiente código en un...

Formulario

Código:

Public Sub AgregaArchivos()
        Dim Archivin As String = ""
        Dim Temporal1 As String = ""

        Dim TemporalLeeTodo As Integer = 0
        Dim TemporalLee1 As Integer = 0

        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim Directorio As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Dim InfoArchivo As IO.FileInfo() = Directorio.GetFiles()
            Dim Archivo As IO.FileInfo

            For Each Archivo In InfoArchivo
                If Archivo.Extension = ".txt" Then
                    Temporal1 = Microsoft.VisualBasic.Right(Archivo.Name, 4)

                    TemporalLeeTodo = Microsoft.VisualBasic.Len(Archivo.Name)
                    TemporalLee1 = Microsoft.VisualBasic.Len(Temporal1)

                    Archivin = Microsoft.VisualBasic.Left(Archivo.Name, _
                        TemporalLeeTodo - TemporalLee1)

                    ListBox1.Items.Add(Archivin)
                End If
            Next
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AgregaArchivos()
    End Sub

Con esto se lleva a cabo lo que deseas. Nos vemos.