Power Builder - USO EL SGT CODIGO PARA COPIAR Y NO FUNCIONA

HOLA A TODOS USO EL SGT API PARA COPIAR ARCHIVOS PERO AL MOMETO DE EJECUTAR SOLO ME COPIA UN ARCHIVO.

Y OTRA PREGUNTA COMO PODRIA HACER PARA QUE TENGA EL EFECTO DE COPIAR ARCHIVO COMO EL DE WINDOWS.
MUCHAS GRACIAS

Function boolean CopyFile (string lpExistingFileName, ref string lpNewFileName, boolean b) Library "KERNEL32.DLL" Alias for "CopyFileA"

SetPointer(HourGlass!)
String ls_source, ls_dll, ls_pbd, ls_app, ls_all, ls_destino
String ls_path ,is_origen
String ls_complete_path
integer ii_row

ls_pbd = '\\esme\soft\apt\*.pbd'
ls_path = '\\esme\soft\apt\'
ls_destino = 'C:\sistemas\'

lb_archivos.DirList(ls_pbd, 0)

If lb_archivos.TotalItems() > 0 Then
For ii_row = 1 to lb_archivos.TotalItems()
is_origen = lb_archivos.Text(ii_row)
ls_destino = ls_destino + is_origen
//is_origen = ls_path + is_origen
CopyFile(is_origen,ls_destino,true)
SetNull(ls_destino)
SetNull(is_origen)
Next
Else
MessageBox("Error","Falla al copiar")
Return
End IF

con la version 8 o superior puedes usar filecopy, pero ho hace el efecto q deseas

for ll_aux=1 to lb_archivos.TotalItems ( )
lb_archivos.selectitem(ll_aux)
ls_archivo[ll_aux]=lb_archivos.selecteditem()
FileCopy ("d:\sistema mutual\update\"+ls_archivo[ll_aux] , "d:\sistema mutual \"+ls_archivo[ll_aux],true)
next

con la api q estas usando si lo hace,

espero te de una idea

saludos desde argentina

Hola gracias por tu ayuda pero no entienco con ala api no me funciona .