Power Builder - como guardar el contenido de un

Quisiera saber como puedo guardar el contenido de un listbox a un archivo txt con un boton donde el usuario de la ruta para el archivo a guardar.

Saludos.

string ls_path, ls_file
int li_rc

ls_path =st_ruta.Text
li_rc = GetFileSaveName ( "Select File", ls_path, ls_file, "DOC", "All Files (*.*),*.*" , "C:My Documents", 32770)

integer li_FileNum
li_FileNum = FileOpen( ls_path, StreamMode!, Write!, Shared!, Replace!)

long i
for i = 1 to upperbound(lb_1.item)
FileWrite(li_FileNum, string(lb_1.item[i] )+'~r' )
next

FileClose(li_FileNum)
/**/Messageboix('Proceso', 'Fin')

gracias por tu codigo, funciona perfecto para lo que queria.

sthif,

agregue un par de cosas pero no consigo que el archivo que crea se guarde con el contenido que hay en el control lb

asi tengo el codigo actualmente:

string ls_path, ls_file, trama
int li_rc

ls_path =sle_1.Text
li_rc = GetFileSaveName ( "Seleccionar Archivo", ls_path, ls_file, "txt", "Archivo de texto (*.txt),*.txt")

IF li_rc = 1 THEN
sle_1.text =ls_path
integer li_FileNum
li_FileNum = FileOpen( ls_path, StreamMode!, Write!, Shared!, Replace!)

long i
for i = 1 to upperbound(lb_entrada.item)
FileWrite(li_FileNum, string(lb_entrada.item[i]+'~r'))

next

FileClose(li_FileNum)
Messagebox('Proceso', 'Fin')
end if

Gracias.

Hay algún error ? se crea en vacio? ó simplemente no se crea el archivo?

se crea el archivo pero sin contenido.

saludos.