Estrarre da archivio winrar con VB

venerdì 21 settembre 2012 - 11.59

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET

Feroxis Profilo | Junior Member

80 messaggi | Data Invio: ven 21 set 2012 - 11:59

Allora:
Sono in questa situazione, riesco a scaricare un file da internet e riesco a piazzarlo in una cartella da me scelta tramite:
Dim W As New Net.WebClient

W.DownloadFile("http://www.sitoweb/prg/install2.rar", total & "\install2.rar")

total = "C:\TotemV1\" così da avere intall2.rar in C:\TotemV1\install2.rar

adesso devo estrarre nella stessa posizione questo archivio.

e riesco attualmente solo ad aprirlo tramite il comando:
Shell("C:\Program Files (x86)\WinRAR\WinRar.exe " & cartell & "\install2.rar", 0)

Nella stringa in Shell cosa dovrei cambiare per far decomprimere questo archivio nella cartella c.\TotemV1.

Con il comando precedente si apre winrar con l'archivio scelto senza estrarre, per estrarlo?
Grazie...

bludev Profilo | Newbie

40 messaggi | Data Invio: ven 21 set 2012 - 14:13

http://comptb.cects.com/2503-using-the-winrar-command-line-tools-in-windows
---
Fabio Turrin - Bludev - http://www.bludev.it/

algraps Profilo | Junior Member

187 messaggi | Data Invio: ven 21 set 2012 - 14:35

ciao,
come mai utilizzi winrar? Di solito per queste cose si utilizzano programmi opensource come 7zip. Comunque ti allego un link per scaricare il rar a riga di comando :
http://www.rarlab.com/rar_add.htm
e poi questo link per utilizzare il rar a riga di comando
http://comptb.cects.com/2503-using-the-winrar-command-line-tools-in-windows

comunque se volessi implementare 7zip, c'e' questa libreria per utilizzarlo tranquillamente in .net
http://sevenzipsharp.codeplex.com/discussions/233502
spero di essere stato utile.

Ciao e fammi sapere.
Al.

Feroxis Profilo | Junior Member

80 messaggi | Data Invio: sab 22 set 2012 - 12:11

Allora vi dico quali ho provato e che errori mi comportano:
Ho iniziato con:
http://www.dotnethell.it/forum/messages.aspx?ThreadID=34138
secondo dll di ionic.zip.dll e ionic.zlib.dll
alla dichiarazione di dim x as zipfile mi restituisce l'errore zipfile è ambiguo in ionic.zip allora ho cercato la soluzione e l'unica che ho trvoato è stata aggiungere ionic.partial.zip.dll che non sono riuscito a trovare e ho abbandonato l'idea.

Poi sono passto a gzip delle funzioni di visual studio.
tramite systm.io.compression dove i codici presi da altre soluzioni trovate online non hanno dato alcun risultato nemmeno in compressione ma senza errori dopo un paio di ore ho abbandonato anche qusta sperando di trovare altro immediatamente funzionante

Poi ho provato senza usare shell("zip ecc")
con

System.Diagnostics.Process.Start("7z.exe", "e C:\NomeFile.zip") con "-o" al posto di e ecc ecc.
Dove riesco sempre e comunque al limite solo ad aprire l'archivio senza scompattare il tutto, con 7za.exe in line command

Alla fine con winrar, non ci sono riuscito dato che il risultato è sempre e solo l'apertura senza scompattare.

Boh...

Feroxis Profilo | Junior Member

80 messaggi | Data Invio: sab 22 set 2012 - 12:19

Ok sono riuscito a risolvere il problema con questo sistema: ho importato Microsoft Shell and Control Automation nei riferimenti.
Poi ho importato Shell 32 con Imports
infine codice semplicissimio in un bottone.

Dim oper As New Shell32.Shell()

Dim direfin As Shell32.Folder = oper.NameSpace("c:\TotemV1")

Dim dascompattare As Shell32.Folder = oper.NameSpace("c:\TotemV1\install2.zip")

dascompattare.CopyHere(input.Items, 4)

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !