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

Ciao,
come da post precedente (abbastanza ignorato) dovrò uplodare e dowlodare dei 
file da un sito ftp.
Pensavo di comprimere i file che andrò a caricare sul sito, però non so come 
fare.
Pensavo di utilizzare una shell di Winzip .... oppure qualche componente 
"gestibile"
Avete suggerimenti?


vb6 o .net?
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 Bye,
Vb6
Sorry. 

 Avete suggerimenti?
Anche winrar  o i vecchi punkzip  (o qualcosa di simile) Pkzip25
(se ti serve il punkzip dillo) esempio :
cmdstr = "pkzip25" & " -add" & " x.zip" & " x.txt"
una cosa abbastanza semplice senza usare la riga di comando
ma una volta individuati i comandi giusti e' praticamente infallibile
esempi in vbs (facilmente implementabili in VB)
deve essere attivata l'integrazione della shell in tutti e due
' zip (test su winzip 8.1)
Const ssfDRIVES = &H11
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName("C:\BACKUP")_
.InvokeVerb"&Add to BACKUP.Zip"
' Rar  su vecchia versione ma basta cambiare l'invoke Verb
'anche in caso di lingua differente  il succo e' che se il comando
'click destro e'  per esempio Archivia in ..  l'invoke verb sara ESATTAMENTE
'cosi con la peculiarita' del CaSe SeNSitiVe e dell'ampersand (&)
sa = """Backups.rar"""
Const ssfDRIVES = &H11
Set oSH = CreateObject("Shell.Application")
oSH.NameSpace(ssfDRIVES).ParseName("C:\Backups")_
.InvokeVerb"Add &to "&sa
'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
la cosa piu' semplice sembra la linea di comando di winrar
set oShell = CreateObject("WScript.Shell")
oShell.run"WinRAR  a  c:\backup"
'WinRAR vers. 3.60 beta 4 - (c) 1993-2006
Esempi:
1) Aggiungere tutti i file  *.hlp  dalla cartella corrente all'archivio guida.rar:
WinRAR  a  guida  *.hlp
2) Archiviare tutti i file della cartella corrente e delle sue sotto-cartelle in un archivio solido, auto-estraente,
multi-volume con file di dimensione da 362.000 bytes e dai nomi salvataggio.part001.rar, salvataggio.part002.rar,
salvataggio.part003.rar, ., aggiungendo ad ognuno le informazioni per il recupero:
WinRAR  a  -r  -v362  -s  -sfx  -rr  salvataggio
siccome nessun file è stato specificato, vengono assunti tutti i file (*.*).
3) Se viene specificato come argomento il nome di una cartella in combinazione dell'opzione -r, l'
intero contenuto della cartella e di tutte le sue sotto-cartelle verrà archiviato. Il comando seguente aggiungerà tutti
i file dalla cartella Immagini nell'archivio RAR Figure:
WinRAR  a  -r  Figure  Immagini
Ovviamente è possibile utilizzare la definizione tipica scrivendo Immagini\*.*  invece di Immagini.
WinRAR vers. 3.60 beta 4 - (c) 1993-2006, Alexander Roshal - Andrea Baitelli
--
Fosco

Wudi ha scritto:

http://www.visual-basic.it/articoli/adsZlib.htm
Ciao!
:o)
Io aprire shell e lanciare "robe varie"....mi garba poco...lo
faccio....ma se posso evitare  senza bacarmi tanto le scatole
preferisco scrivere qualche riga di codice in più!