Newsgroup: it.comp.lang.visual-basic
Titolo: Winzip

ho un problema abbastanza banale ma che non riesco a risolvere:
voglio lanciare dalla mia applicazione vb una shell per unzippare un file 
senza aprire la maschera del winzip.
purtroppo se do il comando:
Shell "c:\winzip\winzip32.exe file.zip"
si apre la maledetta interfaccia del winzip.
qualcuno ne sa qualcosa?
Mood 

 ha scritto nel messaggio 
news:Mrk_g.11533$Fk1....@twister2.libero.it...


"Mood"
'Prova pure questo VBS :
Const ssfDRIVES = &H11
Set oSH = CreateObject("Shell.Application")
'oSH.NameSpace(ssfDRIVES).ParseName  _
'("c:\test.zip").InvokeVerb"E&xtract here"
  oSH.NameSpace(ssfDRIVES).ParseName  _
("c:\test.zip").InvokeVerb"E&xtract"
' l'accortezza e' andare sul zip e vedere l'esatto comando di .InvokeVerb
'che e' case SenSitiVe e DEVE contenere anche l'acelerator key >> &
' l'E&xtract di qui sopra e il mio personale percorso modificato con 
reshaker
' di  C:\Programmi\WinZip\WZSHLEX1.DLL
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
PS :
'stessa cosa con un  *rar (WinRar) volendo :
Const ssfDRIVES = &H11
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName("C:\Test.rar")_
.InvokeVerb"Estrai &qui"
'Shell.Application potrebbe,in alcuni casi,aver problemi a seconda di
'SO e patch a lavorare mentre si e' un line.
--
Fosco

"Mood"
tutto vbs :
'winrar exctract CORRETTO
Const ssfDRIVES = &H11
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName _
("C:\Test.rar").InvokeVerb"Estrai &qui"
' per test
' Winrar Add
sa = """Test.rar"""
Const ssfDRIVES = &H11
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName("C:\Test")_
.InvokeVerb"A&ggiungi all'archivio "&sa
' test con oArgs >> =  Command$  in VB6
' basta trascinarci sopra un file zip
Const ssfDRIVES = &H11
Set oArgs = WScript.Arguments
theFilename = oArgs(0)
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName  _
 (theFilename).InvokeVerb"E&xtract"
set oShell = CreateObject("WScript.Shell")
sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
  wscript.sleep 5000
'Set fso = CreateObject("Scripting.FileSystemObject")
'Do Until Fso.FileExists(sTemp& "\wsz*")
'  wscript.sleep 10
'Loop
' Msgbox "File created"
STRINGTABLE di C:\Programmi\WinRAR\RarExt.dll estratto con
Resource HackerT - Version 3.4.0
http://rpi.net.au/~ajohnson/resourcehacker
STRINGTABLE
LANGUAGE LANG_ITALIAN, SUBLANG_ITALIAN
{
4100,  "E&strai i file..."
4101,  "Estrai i file &in %s"
4102,  "Estrai &qui"
4103,  "Estrai &ogni archivio in una cartella separata"
4104,  "Estrai i file dall'archivio. Possibilità di specificare altre opzioni"
4105,  "Estrai i file dall'archivio nella cartella indicata"
4106,  "Estrai i file nella cartella corrente"
4107,  "Estrai ogni archivio selezionato in una cartella separata"
4108,  "&Aggiungi ad un archivio..."
4109,  "Aggiungi i file ad un archivio. Possibilità di specificare altre opzioni."
4110,  "A&ggiungi all'archivio %s"
4111,  "Aggiungi i file all'archivio indicato"
}
STRINGTABLE di C:\Programmi\WinZip\WZSHLEX1.DLL
STRINGTABLE
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
{
210,  "E&xtract"
211,  "Extract all files in the archive to the folder %s"
212,  "Extract to here using file names for fo&lders"
213,  "Extract all files in the archives using file names for folders"
220,  "Cre&ate Self-Extractor (.Exe)"
221,  "Create a self-extracting file"
222,  "Open with &WinZip"
223,  "Open the selected file with WinZip"
}
--
Fosco