[RISOLTO] Gambas:Creare directory e un file di output

[pippolo]

Ragazzi dovete scusarmi per le continue richieste di aiuto: sto cercando di imparare!!
Come da titolo ho due problemi:
1) CREARE UNA DIRECTORY SE NON ESISTE
Questo problema l'ho risolto in questomodo:

Codice: Seleziona tutto

IF NOT Exist(TBoxDirOut.Text & mese & "/") THEN 
      SELECT message.Question("La directory" & TBoxDirOut.Text & mese & "/" & " non esiste!\nCreare la dirctory?", "Si", "No")
        CASE 1
          SHELL ("mkdir " & TBoxDirOut.Text & mese & "/")
        CASE 2
          Message.Warning("Operazione Annullata")
          Progscan.Value = 0
          GOTO fine
      END SELECT
ENDIF 

Dove mese è una stringa che restituisce il valore di un combobox.
Sembra funzionare però ho letto un po di documentazione ed ho scoperto che esiste per gambas il comando MKDIR e quindi ho provato a sostituire il codice precedente con questo:

Codice: Seleziona tutto

IF NOT Exist(TBoxDirOut.Text & mese & "/") THEN 
      SELECT message.Question("La directory" & TBoxDirOut.Text & mese & "/" & " non esiste!\nCreare la dirctory?", "Si", "No")
        CASE 1
          MKDIR "File:" & TBoxDirOut.Text & mese
        CASE2   
          Message.Warning("Operazione Annullata")
          Progscan.Value = 0
          GOTO fine
      END SELECT
ENDIF 

Ottengo però un messaggio di errore:

ACCESS FORBIDDEN

Sono rimasto quindi con un codice funzionante (il primo) e con la senzazione di aver sbagliato!!!
2) GENERARE UN FILE DI OUTPUT
Ho una ListBox e vorrei creare un file di testo con il contenuto della lista. Mi sembra di aver capito che il comando è
da utilizzare è PRINT# ma non riesco ad utilizzarlo.
Qualcuno mi può aiutare?

[Linux Square team]

per il problema #1 devi fare

Codice: Seleziona tutto

exec gksu "mkdir /percorso"

[Pixel]

# Problema 1 #

MKDIR
esempio:
MKDIR User.Home & "/.Pippo"
crea una directory nascosta nella tua home

Oppure puoi usare la soluzione di Linux Square nel caso tu debba creare una directory in una zona del sistema a privilegi limitati

# Problema 2 #

Codice: Seleziona tutto

DIM hFile AS File '>> dichiaro la variabile con proprietà di file
DIM t AS Integer '>> variabile generica
hFile = OPEN Application.Path & "/<tuo file>" FOR CREATE  '>>CREATE distrugge sempre un eventuale file esistente, APPEND accoda i dati
FOR t = 0 TO ListBox1.Count - 1 '>>leggo tutti i dati delle listbox
ListBox1.Index = t '>>mi posizione nell'indice relativo all'interno della listbox
PRINT #hFile, ListBox1.Text '>>scrivo il conenuto dell'item letto nel file creato
NEXT '>>procedo con il secondo item
CLOSE #hfile '>>chiudo il file

ciao

[Linux Square team]

su vb è piu semplice cmq.

(ot)@ pixel

sai quando le gtk saranno stabili? ora funzionano al 40 % (ot)

[Pixel]

Su VB è più semplice cosa?

Le GTK sono state modificate nelle ultime revisioni del codice, se volete provarlo potete scaricare la versione trunk direttamente da http://gambas.sf.net e compilarla (oppure aspettate che faccia il deb , ma in questi giorni sono abbastanza impegnato con altre cose )
Ciao

[pippolo]

WOW!!!
CODICE COMMENTATO!!!
E' molto più di quanto mi aspettassi!!
Appena ho tempo mi metto a smanattare  un po'.
Purtroppo sospetto che sentirete parlare ancora di me!!

PS Per il problema #1
Visto che:
TBoxDirOut.Text = /home/dario/condivisa/
e che quindi stavo già lavorando nella mia home
spero che il problema fosse dovuto al fatto che gambas la home la riconosce con User.Home e non con il percorso "normale".

Garzie di a tutti.
Dario

[brus46]

ti consiglio anche di usare &/ al posto della & normale quando crei un percorso così eviti parecchi casini  (yes)

&/ in pratica aggiunge la / se ce n'è bisogno altrimenti no  (b2b)

[pippolo]

Ok funziona tutto.
Metto risolto e ringrazio tutti.