Como faço, no forms, para abrir um diretório e listar os arquivos que tem dentro dele, utilizando essa biblioteca?
Eu criei um form de teste, que contém um campo "diretorio" e outros campos denominados "arquivos". Ambos os campos "diretório" e "arquivos" são base table.
Depois de criar esse form, criei uma procedure e coloquei o código abaixo (retirado de um exemplo de listar arquivos de um diretório, da própria biblioteca D2KWUTIL):
PROCEDURE list_files IS
hSearch PLS_INTEGER;
vcFile VARCHAR2(60);
bIsDir BOOLEAN;
BEGIN
hSearch := win_api_directory_list.FirstFile('\*.*', vcFile, bIsDir, FALSE);
-- Process the first file
-- Now iterate through the rest
LOOP
win_api_directory_list.NextFile(hSearch, vcFile, bIsDir, FALSE);
EXIT when vcFile is null;
-- Process the next file and so on
END LOOP;
win_api_directory_list.CloseSearch(hSearch);
END list_files;
END;