[Gambas-user] open and save file

[mora]

i have this code, and nit running for save (named simpan) file,

please help me..



PUBLIC SUB BrowsBt_Click()
 DIM buka AS String
 Dialog.Title = "Choose a File"
 Dialog.Filter = ["Picture files (*.png;*.jpg;*.jpeg;*.bmp)", "All files(*.*)"]
 Dialog.OpenFile
 TextBox1.Text = Dialog.Path
 buka = Trim(TextBox1.Text)
END

PUBLIC SUB BrowsBt2_Click()
 DIM simpan AS String
 Dialog.Title = "Save As"
 Dialog.Filter = ["Cipher files (*.o3s)", "All files(*.*)"] 'nama[1] = "dua"
 Dialog.SaveFile
 TextBox2.Text = Dialog.Path
 simpan = Trim(TextBox2.Text)
END