[Gambas-user] listBox

[Henri Girard]

Hi
can someone tell me why this listbox sent me
an error message : expecting s string ?
it doesn't work... where is the mistake ?

PUBLIC SUB sauve_Click()
DIM lineas AS String[]
DIM destino AS String
DIM numArchivo AS Integer
  lineas = ListBox1.List
  Dialog.Title = "Sélectionner un fichier"
  Dialog.Filter = ["Date agenda (*.data)"]
  IF NOT Dialog.SaveFile() THEN
    IF Right$(Dialog.Path, 5) <> ".data" THEN
      destino = Dialog.Path & ".data"
    ELSE
      destino = Dialog.Path
    END IF
    'PRINT "Guardando en " & destino
     File.Save(destino, lineas)
  END IF
END

_________________________________________________________________
Retrouvez tout en un clin d'oeil avec Live Search !
http://www.live.com/?mkt=fr-fr


-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job 
easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Gambas-user mailing list
Gambas-user at lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user