Ayuda o Solucion

[dtodo_2000]

Hola, e estado intentando hacer una aplicacion que pueda crear una lista de archivos dentro de una carpeta, pero no lo consigo!!!! o si alguien sabe de un buen programa que haga eso, por favor me urge.

por su amable atencion, Gracias.

PD: Una Solucion Rapida seria decirme como  que en Un textbox multilinea; Una Vuelta de Carro; osea que pueda decir = "xxxx"+ XXXXX +"xxxxx" y cuando se repita este comando sea en una nueva linea?.

[ranefi]

Hola, e estado intentando hacer una aplicacion que pueda crear una lista de archivos dentro de una carpeta, pero no lo consigo!!!! o si alguien sabe de un buen programa que haga eso, por favor me urge.

por su amable atencion, Gracias.

PD: Una Solucion Rapida seria decirme como  que en Un textbox multilinea; Una Vuelta de Carro; osea que pueda decir = "xxxx"+ XXXXX +"xxxxx" y cuando se repita este comando sea en una nueva linea?.

Hola dtodo_2000, buen día. Ya te habíamos publicado la solución.

Para ver este enlace Registrate o Inicia Sesion

http://foro.portalhacker.net/index.php/topic,18233.msg73230.html#msg73230

Nos vemos.

[dtodo_2000]

Hola de nuevo, si pero esta vez quiero que lo aga en un archivo de texto no en una lista,

[ranefi]

Hola de nuevo, si pero esta vez quiero que lo aga en un archivo de texto no en una lista,

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

Formulario

Código:

Public Class Form1
    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)
                    TextBox1.Text = TextBox1.Text & vbCrLf & 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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With TextBox1
            .Multiline = True
            .Width = 300
            .Height = 300
        End With
    End Sub
End Class

Espero te sirva. Nos vemos.

[dtodo_2000]

Gracias Muchas Gracias, Eres mi salvador, Ya lo pude hacer, y ademas le agrege unas cuantas opciones que yo considero "utiles" aqui se los dejo usenlo como quieran:

Para ver este enlace Registrate o Inicia Sesion

http://www.4shared.com/file/5644281/6931acfa/listador_v10.html

Es un Programilla Muy Util si lo que buscamos es "Lista de Archivos dentro de Una Carpeta" se puede Numerar o no, ademas que contiene un filtro para una mayor flexibilidad.