Autor
Hola XresH
En Realidad el archivo de DarkMatrix ya no existe por que MEGAUPLOAD ya no Existe por lo tanto no se puede descargar el Codigo de DarkMatrix
Deberias de Leer XresH Antes de decir que esta Todo:
Hola DarkMatrix podrias subir nuevamente el archivo con el Codigo si fueras tan amable.
Muchas Gracias de Antemano
En Realidad el archivo de DarkMatrix ya no existe por que MEGAUPLOAD ya no Existe por lo tanto no se puede descargar el Codigo de DarkMatrix
Deberias de Leer XresH Antes de decir que esta Todo:
Hola DarkMatrix podrias subir nuevamente el archivo con el Codigo si fueras tan amable.
Muchas Gracias de Antemano
Código:
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
Yo lo hice funcionar con eso, si tu capacidad no te dá, entonces no digas cosas que no son.
Saludos.
En línea
