Hola Ruben
gracias me funciono perfecto el codigo !!!!
el unico interrogante que tenia es por que si pones la ruta
'zipIT = "C:\archiv~1\WinZip\winzip32 -a " funciona bien y si pongo la ruta
completa 'zipIT = "C:\Archivos de programa\WinZip\winzip32 -a " no agrega los
archivos
en realidad sabia que ~1 es la forma en que windows apunta a la porcion del
nombre largo cuando supera la cadena los 8 caracteres, pero al parecer el
comando no funciona si pongo la ruta con espacios. Supongo que el problema
seria similar si quisiera comprimir bajo winrar
saludos, y gracias.
Marcelo
----- Original Message -----
From: Ruben Regis
To: vbusers List Member
Sent: Thursday, March 08, 2007 11:55 PM
Subject: [vbusers] copias de seguridad de archivos en .zip
Hola Marcelo, espero sea lo que necesitas a mi me funciono :
Source = "data\*.mdb"
Target = "a:\bases.zip "
zipIT = "c:\archiv~1\winzip\winzip32 -a "
Shell (zipIT & Target & Source), vbMaximizedFocus
----- Original Message -----
From: microinf
To: vbusers List Member
Sent: Thursday, March 08, 2007 9:14 AM
Subject: [vbusers] copias de seguridad de archivos en .zip
Hola Listeros
necesitaria saber si desde visual basic 6, se pueden realizar copias
de seguridad a archivos .zip de determinados archivos (access, etc) , a traves
de algun codigo que se ejecute.
agradeceria si alguien hizo algo asi, me lo enviara por favor.
saludos.
Marcelo.
--
Este mensaje ha sido analizado por MailScanner
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers por su apoyo. El mail recibido,
fue verificado por el Servicio de Antivirus para mail de Fullzero
y se encuentra libre de virus
----------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.7/713 - Release Date: 07/03/07
09:24 a.m.
--
Este mensaje ha sido analizado por MailScanner
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers por su apoyo.
------------------------------------------------------------------------------
Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.18.7/713 - Release Date: 07/03/2007
--
Este mensaje ha sido analizado por MailScanner
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers por su apoyo.
