Estimados amigos
Les consulto sobre el tema de descoprimir copias de respaldos hecho con la utilidad WinRar en formato WinrarZip. Yo tengo los codigos para la compresion
Do Case
Case Thisform.compression.Value = 1
cParams = Iif(Empty(Thisform.txtPass.Value),"a -y &lcArchFile &lcSnapFolder",;
"a -y -p"+Alltrim(Thisform.txtPass.Value)+" &lcArchFile")
Case Thisform.compression.Value = 2
cParams = Iif(Empty(Thisform.txtPass.Value),"a -tzip -y &lcArchFile &lcSnapFolder",;
"a -tzip -y -p"+Alltrim(Thisform.txtPass.Value)+" &lcArchFile &lcSnapFolder")
Case Thisform.compression.Value = 3 && Disabled if WinRAR is not detected
cParams = Iif(Empty(Thisform.txtPass.Value),"a -o+ -Y &lcArchFile &lcSnapFolder",;
"a -o+ -Y -p"+Alltrim(Thisform.txtPass.Value)+" &lcArchFile &lcSnapFolder")
Case Thisform.compression.Value = 4
cParams = Iif(Empty(Thisform.txtPass.Value),"a -t7z -sfx -y &lcArchFile &lcSnapFolder",;
"a -t7z -sfx -y -p"+Alltrim(Thisform.txtPass.Value)+" &lcArchFile &lcSnapFolder")
Endcase
En la opcion 1 es para 7z (7zip), opcion 2 es para WinrarZip, la opcion 3 es para Winrar, la opcion 4 es para SFX (Self-exe)
Lo que no he podido encontrar son los codigos para realizar la descompresion, para el tema de restauracion de copias de respaldos, lo que estoy haciendo es hacerlo en forma manual y queria poder hacerlo en un formulario de restore datos.
Si alguien me podria pasar los codigos para realizar los restores de los codigos antes mencionado se los agradeceria mucho.
--
Ing. Marcelo Barberis Gutierrez
Sistemas Informaticos Inc
Villa Montes - Bolivia
Telef.:
+591-76831064