Power Builder - Recorrer y remplazar una cadena

Hola como hago para remplazar un archivo
ls_variable = '00001'
ls_origen ='c:\archivo2005.doc'
ls_destino = "\\esmeralda\planos$\PDF\"+ls_origen

lb_rtn = MoveFileA( ls_origen, ls_destino )

quisera que mi nuevo nombre sea el de variable y no el de origen

o como haria para recorre esa cadena hasta .doc y remplazar lo anterior
con las variable ls_variable

Muchas Gracias Chicos
Feliz Navidad

Saludos y Feliz Navidad...

Maneja esto...

Esta Rutina trabaja genericamente para todos los strings. Por ejemplo si OLD_STR = "red" y NEW_STR = "green", todas las ocurrencias de "red" serán remplazadoas con "green".

long ll_StartPos = 1
string ls_old_str, ls_new_str, ls_txt_str

ls_txt_str = sle_1.Text
ls_old_str = "red"
ls_new_str = "green"

// Busca la primera ocurrencia de ls_old_str ...
ll_StartPos = Pos(ls_txt_str, ls_old_str, ll_StartPos)

// Unicamente entra al loop si uted busca ls_old_str ...

DO WHILE ll_StartPos > 0
// Remplaza old_str con ls_new_str ...
ls_txt_str = Replace(ls_txt_str, ll_StartPos, Len(ls_old_str), ls_new_str)

// Busca la siguiente ocurrencia de ls_old_str
ll_StartPos = Pos(ls_txt_str, ls_old_str, ll_StartPos + Len(ls_old_str))
LOOP

sle_2.Text = ls_txt_str