Private Sub Form_Load()
     
    1         On Error GoTo Form_Load_Error
     
    2         Call RegisterComponent(App.Path & "\unzip32.dll", DllRegisterServer)
     
    3         TempUpdateList = App.Path & "\updatelist.txt"     ' Archivo que guarda la informacion de los archivos actualizados
    4         TempFileList = App.Path & "\filelist.txt"         ' Donde seran almacenados los archivos actuales
     
    5         If Command = "GenerateUpdateList" Then
    6             If mArchivos.ArchivoExiste(App.Path & "\updatelist.txt") Then Call mArchivos.BorrarArchivo(App.Path & "\updatelist.txt")
    7             Call Generate_FileList(App.Path, 1, App.Path & "\updatelist.txt", HostUrl)
    8             MsgBox "Listo"
    9             End
    10        End If
     
    11        If mArchivos.ArchivoExiste(TempUpdateList) Then mArchivos.BorrarArchivo TempUpdateList
    12        If mArchivos.ArchivoExiste(TempFileList) Then mArchivos.BorrarArchivo TempFileList
    13        If mArchivos.ArchivoExiste(App.Path & "\updatelist.zip") Then mArchivos.BorrarArchivo App.Path & "\updatelist.zip"
    14        If mArchivos.ArchivoExiste(App.Path & "\updatelist.txt") Then mArchivos.BorrarArchivo App.Path & "\updatelist.txt"
     
    15        Set Download = New CDownload
     
    16        Me.Show
     
    17        If Descargar_Updatelist = True Then               ' Descarga el Updatelist
    18            Call Generar_Lista_De_Archivos                ' Genera la lista de archivos
    19            Call Comprobar_Actualizaciones(App.Path)      ' Compara archivos en busca de actualizaciones
    20            Call Descargar_Actualizaciones                ' Descargar Actualizaciones
    21            Call SetStatus("Actualizacion Completa...")   ' Establece el Mensaje de que se completo todo
    22            cmdAceptar.Enabled = True                     ' Activa el mensaje para activar la aplicacion Principal
    23        Else
    24            Call SetStatus("Fallo al Tratar de Actualizar...")    ' Fallo la actualizacion.
    25        End If
     
    26        Exit Sub
     
    Form_Load_Error:
     
    27        MsgBox "Error " & Err.Number & " (" & Err.Description & ") En La Linea Nº " & Erl & " Del Procedimiento Form_Load del Formulario frmDownloader", vbCritical + vbOKOnly, "Error"
     
    End Sub