Comprimir ficheros con zip
Publicado por brigi (5 intervenciones) el 21/02/2008 09:48:11
Hola a todos,
Tengo una macro en Excel que coge un determinado número de ficheros .xls y los comprime con las siguientes instrucciones en un archivo .zip.
comando = """C:Archivos de ProgramaWinzipWinzip32"" -min -a " & _
fichsalida & " " & _
nuevoarch
mishell = Shell(comando, vbMinimizedNoFocus)
Lo que quiero hacer ahora es crear un fichero (autodescomprimible) .exe dándole la ruta de destino para cuando yo haga doble-click en ese fichero .exe los ficheros que contiene vayan a parar a la ruta que yo le había asignado. Sabéis si se puede hacer con algún comando shell como el anterior???
Muchas Gracias
Tengo una macro en Excel que coge un determinado número de ficheros .xls y los comprime con las siguientes instrucciones en un archivo .zip.
comando = """C:Archivos de ProgramaWinzipWinzip32"" -min -a " & _
fichsalida & " " & _
nuevoarch
mishell = Shell(comando, vbMinimizedNoFocus)
Lo que quiero hacer ahora es crear un fichero (autodescomprimible) .exe dándole la ruta de destino para cuando yo haga doble-click en ese fichero .exe los ficheros que contiene vayan a parar a la ruta que yo le había asignado. Sabéis si se puede hacer con algún comando shell como el anterior???
Muchas Gracias
Valora esta pregunta
0