[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