How to open a file


open.png
' Gambas class file

PUBLIC SUB Button1_Click()
  myLine AS String
  myFile AS File
  nb AS Integer
  X AS Integer
  nb = 0
  
  'test.txt must exist!
  OPEN "test.txt" FOR READ AS myFile
  WHILE NOT Eof(myFile)
   LINE INPUT #myFile, myLine
   TextLabel1.Text= TextLabel1.Text & "<br>" & myLine
  WEND
  CLOSE myFile
END

-- JochenGeorges - 28 Dec 2004