Power Builder - obtener nombres de archivos

Mi conculta es la siguiente tengo una tabla donde tengo una equivalencia de codigos ejem:
primer codigo: p20 - segundo codigo: 2006I10 y una carpeta donde hay archivos guardados con el primer codgio .
Lo primero es listar el nombre de todos los archivos que exixten en la carpeta que uno seleccione , si en la carpeta existe un atrchivo con nombre igual al primer codigo generar una copia del archivo con el segundo codigo como nombre creo que se tiene que manipular apis pero no se mucho sobre eso .

No creo q haya necesidad de usar API's. Prueba con el siguiente ejemplo:

Crea una ventana con un botón y un ListBox (lb_files)

//En el evento open colocas el siguiente script:

string ls_dir
integer li_rtn

li_rtn=Getfolder('Seleccione el Directorio',ls_dir)

if li_rtn <> 1 then return

if right(ls_dir,1) <> '\' then ls_dir=ls_dir + '\'
lb_files.DirList(ls_dir + "*.*",35)

//En el botón colocas este script (Buscar y Crear Copia)

long ll_index
string ls_item_file, ls_codi_file, ls_new_file, ls_extension

//Recorres toda tu tabla
DECLARE C_CODIGOS CURSOR FOR
SELECT COD_FILE FROM TU_TABLA;

OPEN C_CODIGOS;

FETCH C_CODIGOS INTO :ls_codi_file;

do while SQLCA.SQLCODE = 0
//Buscas si existe el archivo
ll_index = lb_files.FindItem(ls_codi_file,0)

if ll_index > 0 then
//Extraes el nombre del archivo
ls_item_file = lb_files.text(ll_index)
//Extraes la extensión del archivo
if pos(ls_item_file,'.') > 0 then ls_extension=mid(ls_item_file,pos(ls_item_file,'.')) else ls_extension=''

/* Acá colocas el procedimiento para hallar el nuevo código (ls_new_file)*/

//Creas la copia siempre y cuando no exista
FileCopy (ls_dir + ls_item_file,ls_dir + ls_new_file + ls_extension,false)
end if

FETCH C_CODIGOS INTO :ls_codi_file;
loop

CLOSE C_CODIGOS;

Espero que te sirva de ayuda..

Suerte !

Buenas, solo quería saber por que esto no funciona cuando creo el objeto listbox por código, yo no necesito visualizar el objeto...todo es por codigo...es un proceso no visual para el usuario.

Saludos

Esto necesitaria una pequeña rutina para hacerlo.
Si quereis os puedo hacer presupuesto para hacerlo.Ya que con lo que cuentas aquí faltan datos
Un Saludo