Salve, sto creando un piccolo unziptool per scompattare archivi .tar.gz .zip .tar.bz2 tramite una comoda interfaccia grafica. Quando vado ad impostare la funzione -C per scrivere la destinazione non funziona.. Vi posto codice e immagini
' Gambas class file
PUBLIC SUB Button1_Click()
DIM indirizzo AS String
indirizzo = FileChooser1.SelectedPath
SHELL "gksudo unzip " & indirizzo & ""
END
PUBLIC SUB Button2_Click()
DIM indirizzo AS String
DIM percorso AS String
indirizzo = FileChooser1.SelectedPath
SHELL "tar xzf -C" & indirizzo & "" " -C" & percorso & " " ""
percorso = TextBox1.Text
END
PUBLIC SUB Button3_Click()
DIM indirizzo AS String
indirizzo = FileChooser1.SelectedPath
SHELL "gksudo tar jxvf " & indirizzo & ""
END
http://i46.tinypic.com/2mlnac.png
Consigli per il rinnovamento dell'interfaccia grafica sono ben accetti ^^
Saluti, G.
Hai fatto un pastrocchio....
Devi leggere l'output del terminale per capire gli errori..
SHELL "tar xzf -C" & indirizzo & "" " -C" & percorso & " " ""
deve essere
SHELL "tar xzf -C " & indirizzo & "" " -C" & percorso & " " ""
e poi riscrivi il codice senza tag perchè mi pare ti stia togliendo qualche carattere...
Ah ecco...non era problema di tag...hai scritto delle cose incomprensibili...
ad esempio...
qui: SHELL "gksudo unzip " & indirizzo & ""
a cosa ti serve aggiungere dopo indirizzo quelle due virgolette che poi in realtà non aggiungono un bel niente?
poi
qui: SHELL "tar xzf -C" & indirizzo & "" " -C" & percorso & " " ""
devi lasciare degli spazi nel comando come ti ho detto prima perchè sennò attacca indirizzo a ciò che segue...
sarebbe:
SHELL "tar xzf -C" & indirizzo & "" " -C" & percorso & " " ""
e poi non capisco quelle quattro virgolette messe alla fine cosa dovrebbero aggiungere? uno spazio?un messaggio subliminale alieno?boh....