Dim DBArch As String, DBs() As String
            DBs = Directory.GetFiles(DBURL, "*.xml", SearchOption.AllDirectories)
            Dim DBXML(DBs.Length) As XmlDocument
            ReDim DB(DBs.Length)
            Dim Id As Integer = 0
            Dim NDB As Integer = 0
            For Each DBArch In DBs
                Try
                    DBXML(Id).Load(DBArch)
                    DB(Id) = DBXML(Id).SelectNodes("/AutoRemoveXDB/item")
                    NDB = NDB + DB(Id).Count
                    Id = Id + 1
                Catch ex As Exception
                    ' Next
                End Try
            Next
 
            If DB.Length > 1 Then
                Estado(DB.Length & " Bases de datos cargadas.")
            Else
                Estado(DB.Length & " Base de datos cargada.")
            End If
            If NDB > 1 Then
                Estado(NDB & " Tareas cargadas.")
            Else
                Estado(NDB & " Tarea cargada.")
            End If