Dim ruta_madre As Array
            ruta_madre = System.IO.Directory.GetFiles(ruta)
            For Each archivos_madre As String In ruta_madre
                ListBox1.Items.Add(archivos_madre.ToString)
                'funcion para escribir en el txt
                Dim oSW As New IO.StreamWriter(salvable, True)
                Dim Linea As String = archivos_madre.ToString & vbNewLine
                oSW.WriteLine(Linea)
                oSW.Flush()
                oSW.Dispose()
            Next
 
            Do
                For Each archivos As String In System.IO.Directory.GetFiles(ruta & folders(x).Name, _
                                                                                     "*", _
                                                                                     System.IO.SearchOption.AllDirectories)
 
                    ListBox1.Items.Add(archivos.ToString)
                    Dim oSW As New IO.StreamWriter(salvable, True)
 
                    Dim Linea As String = archivos.ToString & vbNewLine
                    oSW.WriteLine(Linea)
                    oSW.Flush()
                    oSW.Dispose()
 
                Next
                x = x + 1
            Loop Until x = tope