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
DIM testo AS String
testo = File.Open(percorso FileTesto)
file.save(percorsoFileTesto, testo & gb.newline & textbox1.text)
Grazie mille a tutti
Ci SIAMO riusciti