[RISOLTO] aggiungere del testo ad un file esistente

[fibonacciCrew]

Ciao a tutti Ragazzi
Ho un piccolo problema, vorrei elencare i file di testo contenuti in una cartella, in una listbox,
Vi chiedo Aiuto
Grazie in anticipo

[Taurus dei miracoli]

Ma tutti i files della cartella sono file di testo o solo alcuni (e questi alcuni hanno suffisso .txt)?
 

[fibonacciCrew]

i files sono tutti di solo testo

[milio]

Codice: vb [Seleziona]

PUBLIC SUB Button1_Click()
DIM TxtFile AS String

  FOR EACH TxtFile IN Dir(User.Home)
    IF File.Ext(TxtFile) = "txt" THEN ListBox1.Add(TxtFile)
  NEXT 

END

[fibonacciCrew]

Grazie mille ma ho risolto in altra maniera:

DIM hfile AS file
DIM sLine AS String
hFile = OPEN "percorso file" FOR INPUT

WHILE NOT Eof(hFile)
  LINE INPUT #hFile, sLine
 ListBox1.Add(sLine)
  WEND

non so se è il modo più corretto cmq funziona.
Ma ho un altro problema......
Non riesco a capire come salvare un file di testo senza sovrascriverne il contenuto

Chiedo Aiuto

[Berserker79]

Ciao, credo che tu debba usare il metodo hFile = OPEN "percorso file" FOR APPEND.
Oppure apri il file, leggi il contenuto passandolo ad una stringa e poi lo riscrivi con la stringa ottenuta più il nuovo testo che devi inserire.

[fibonacciCrew]

ho già provato a mettere FOR APPEND, ma non ottengo il risultato da me cercato, ho provando anche questa:

file.save("percorso file da salvare", gb.newline & textbox1.text")

ma qui il problema è che dopo aver salvato 2 righe il file torna come vuoto per salvare altre 2 righe e solo altre 2

Probabilmente sbaglio qualcosa nel FOR APPEND
Ma non riesco a trovare troppe informazioni in merito
ricordo che su vb c'era il comando append.text o qualcosa di simile

Grazie mille per il vostro tempo e disponibilità
 

[Ceskho]

Immaginando che il file si chiami FileTesto dai:

Codice: gambas [Seleziona]

DIM testo AS String

testo = File.Open(percorso FileTesto)
file.save(percorsoFileTesto, testo & gb.newline & textbox1.text)

[fibonacciCrew]

Grazie mille a tutti
Ci SIAMO riusciti

[Ceskho]

Grazie mille a tutti
Ci SIAMO riusciti

Quanti siete? C'è posto per un altro?