Muchas Gracias a Todos.
Saludos.
Néstor.
----- Original Message -----
Sent: Friday, September 22, 2006 7:51
PM
Subject: [vbusers] RE: Manejo de Archivos
Zip
Bueno Nestor asi lo hice yo:
Dim copia As New
FileSystemObject
Private Sub cmdIniciar_Click()
cmdSalir.Enabled =
False
MsgBox "Inserte Diskette para Back Up", vbExclamation
On Error
GoTo error_diskette
Open "data_backLeame.txt" For Output As #1
Print #1,
"Copia de la Base de Datos"
Print #1, "al: " & Date & " " &
Time
Close #1
copia.CopyFile "data*.mdb", "data_back"
Open
"a:Leame.txt" For Output As #1
Print #1, "Copia de la Base de
Datos"
Print #1, "al: " & Date & " " & Time
Close
#1
Source = "data\*.mdb"
Target = "a:\bases.zip "
zipIT =
"c:\archiv~1\winzip\winzip32 -a "
Shell (zipIT & Target & Source),
vbMaximizedFocus
Timer1.Enabled =
True
cmdSalir.Enabled = True
Exit Sub
error_diskette:
MsgBox
Err.Description
cmdSalir.Enabled = True
End Sub
Private Sub
cmdSalir_Click()
Unload Me
End Sub
Private Sub
Form_Load()
Timer1.Enabled = False
End Sub
-----Mensaje
original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre
de Ruben Regis
Enviado el: Viernes, 22 de Septiembre de 2006 10:44
Para:
vbusers List Member
Asunto: [vbusers] Manejo de Archivos Zip
hola
Nestor:
yo l hice pero lo tengo en casa si te va a la noche o mañana
por la mañana a
mas tardar te mando la info.
Ruben
-----
Original Message -----
From: <[EMAIL PROTECTED]>
To: "vbusers List
Member" <[EMAIL PROTECTED]>
Sent: Friday, September 22, 2006 10:13
AM
Subject: [vbusers] Manejo de Archivos Zip
>
> Que
tal Gente, los molesto para ver si alguien me tira una punta (o
>
ejemplo) sobre hacer un backup zipeado de una base de datos Access
desde
> dentro de la Aplicación. La idea es que el Sistema permita
seleccionar el
> nombre y la ubicación del backup, generando un
archivo zip de la base.
> Tambien el camino inverso, poder desde la
aplicacion descomprimir la base
> desde el mismo archivo generado
(.zip).
> Desde ya, muchas gracias.
> Saludos Cordiales.
>
Néstor.
> __________________________________
> Registrate
desde
>
http://servicios.arnet.com.ar/registracion/registracionasp?origenid=9
y
> participá de todos los beneficios del Portal
Arnet.
>
>
> El mail recibido, fue verificado por el
Servicio de Antivirus para mail de
> Fullzero
> y se encuentra
libre de virus
>
El mail recibido, fue verificado por
el Servicio de Antivirus para mail de Fullzero
y se encuentra libre de
virus
__________________________________________________
Internet gratis. Siempre.
http://www.fullzero.com.ar
