Dim rutaFichero As String
        rutaFichero = Form1.ruta_txt.Text
        With FolderBrowserDialog1
            .Description = "Seleccionar la carpeta"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ruta_txt.Text = (.SelectedPath)
            End If
            MsgBox("Listado.txt va ser creado en la siguiente ruta" & Chr(10) & (.SelectedPath))
        End With


        If Not My.Computer.FileSystem.FileExists(FolderBrowserDialog1.SelectedPath & "\listado.txt") Then
            Dim Archivo As System.IO.FileStream
            Archivo = System.IO.File.Create(FolderBrowserDialog1.SelectedPath & "\listado.txt")
            Archivo.Close()
        End If


        Dim a As Integer
        Dim Linea As String
        For a = 0 To ListBox1.Items.Count - 1
            Dim _Stream As New IO.FileStream(FolderBrowserDialog1.SelectedPath & "\listado.txt", IO.FileMode.Open)
            Dim _StreamWriter As New IO.StreamWriter(_Stream)

            Linea = Linea & vbNewLine & ListBox1.Items(a).ToString()
            _StreamWriter.Write("")
            _StreamWriter.WriteLine(Linea)
            _StreamWriter.Close()
        Next
        Dim _Stream2 As New IO.FileStream(FolderBrowserDialog1.SelectedPath & "\listado.txt", IO.FileMode.Open)
        Dim _StreamWriter2 As New IO.StreamWriter(_Stream2)
        _StreamWriter2.WriteLine("Programa desarollado por Eduardo Giralda" & vbNewLine & "Ruta: " & ruta_txt.Text & vbNewLine & "Numero de archivos: " & n_lbl.Text & vbNewLine & "" & vbNewLine & Linea)
        _StreamWriter2.Close()
        MsgBox("Archivo creado correctamente")