19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
DIM FileIcona AS file Dialog.Path = Application.Path IF Dialog.OpenFile() THEN RETURN OPEN (Dialog.Path) FOR READ AS #FileIconaEND
DIM ListaFile AS String[]DIM NomeFile AS String Dialog.Path = Application.Path IF Dialog.OpenFile( TRUE ) THEN RETURN ListaFile = Dialog.Path FOR EACH NomeFile IN ListaFile PRINT NomeFile NEXTEND
PUBLIC SUB btnReadChoose_Click() Dialog.Title = "Leggi un file" Dialog.Path = lastInFile Dialog.OpenFile(FALSE) txtRead.Text = Dialog.Path inFile = Dialog.Path END
DIM FileIcona AS String Dialog.Path = Application.Path IF Dialog.OpenFile() THEN RETURN TextBox1.Text = Dialog.Path