Dirchooser e selezionare la cartella

[Gusions]

salve, creando un tool ho la neccessità di selezionare una cartella e di entrarci dentro con il comando cd, ma non ho trovato nulla! idee?

[fsurfing]

non ho capito esattamente che ti serve

se vuoi sapere quali file e cartelle sono presenti in una cartella puoi usare il comando  Dir(percorso) che restituisce un array contenente i file presenti nella cartella indicata dal percorso

[Gusions]

ehm, allora, selezionando una cartella con il dirchooser vorrei poi poterci entrare con il comando cd e dare un comando in quella cartella ad esempio : sh autogen.sh

[Ceskho]

Devi usare la proprietà selectedpath

Ad esempio: inserisci in un form un dirchooser ed un button e nella sb del button inserisci

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

  PRINT DirChooser1.SelectedPath

END

Vedrai che scegliendo una cartella e premendo il button nel terminale apparirà l'indirizzo desiderato.

[fsurfing]

prova con

Codice: [Seleziona]

shell "cd " & percorso & " && " & comando
 

percorso è il percorso della cartella

comando è il comando da eseguire

il percorso lo ricavi con dirchooser1.value come ha detto ceskho

[Gusions]

ok, quello di ceskho và però poi da terminale con :

Codice: [Seleziona]

PUBLIC SUB Button1_Click()
DIM sOutput AS String
  PRINT DirChooser1.SelectedPath
SHELL "gksudo './autogen --assume-yes'" WAIT TO sOutput

TextArea1.Text = sOutput
END

non va

[Ceskho]

Per forza non va...il mio era un esempio per vedere come estrapolare la directory dal dirchooser....mica era la soluzione al tuo problema....

Se siete chiari con quello che dovete fare vi aiutiamo più facilmente...


Allora...il tuo problema si risolve facilmente così:

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

   DIM sOutput AS String
   DIM indirizzo AS String

   indirizzo =  DirChooser1.SelectedPath

   SHELL "cd " & indirizzo WAIT
   SHELL "gksudo './autogen --assume-yes'" TO sOutput
      WAIT

   TextArea1.Text = sOutput

END

[Gusions]

non va ti faccio provare con mano

[giulio]

Quando usate SHELL, sappiate che si riposiziona ogni volta nella home dell'utente.
Quindi nel codice di Ceshko, la seconda SHELL annulla la prima chiamata di cd.
Si fa:

SHELL "cd " & path_dove_vuoi_entrare & "; " & comando_da_eseguire WAIT

saluti

[fsurfing]

ma cacchio!
non potevi leggere il mio post e risolvevi già un ora fa?

[Gusions]

fsf non funziona! puoi applicar l'esempio?

[Gusions]

risolto forse

[fsurfing]

purtroppo sto installando karmic è ho gambas out

[Ceskho]

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

   DIM sOutput AS String
   DIM indirizzo AS String

   indirizzo =  DirChooser1.SelectedPath

   SHELL "cd " & indirizzo & "; gksudo './autogen --assume-yes'" to sOutput 
   WAIT

   TextArea1.Text = sOutput

END

Ti abbiamo scritto tutto quello che ti serviva...bastava attaccare i pezzi...