Estrarre da archivio winrar con VB

venerdì 21 settembre 2012 - 11.59
Tag Elenco Tags  VB.NET

Feroxis Profilo | Junior Member

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

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

algraps Profilo | Junior Member

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

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

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)
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 !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5