Read filenames of directory

Question

Hello to all forms developers !
I have a problem with Forms 6i (client/server). I want the user to select multiple files from a directory. I know this can be done using the OpenFileEx function of the d2kwutil library. But this function only returns a string which max. length is 4096 characters. This restricts the number of selectable files. So I tried another way : I used the HOST built-in to generate a file containing all filenames, like this :
host('dir /b > files.txt', no_screen) and then read out the filenames with routines of text_io package.
The parameter /b for the dir command lists only the filenames.
But to my surprise filenames longer than 8 characters are shortened to only 8 characters so that these filenames cannot be used by other routines.
Did anyone else face and solve this problem and share his experience with me ?
Regards
Kai

Answer 1

if you have d2kwutil library you can use :
win_api_directory_list.FirstFile and win_api_directory_list.NextFile functions. Something like :
WHEN-BUTTON-PRESSED Trigger :
declare
     hSearch PLS_INTEGER;
     vcFile VARCHAR2(60);
     bIsDir BOOLEAN;
     vcLDir VARCHAR2(1);
     vcRDir VARCHAR2(1);
begin
     hSearch := win_api_directory_list.FirstFile(:directory_list.directory, vcFile, bIsDir, toBoolean(:directory_list.exceptions));
     :directory_list.result := IsDir(vcFile, bIsDir);
     LOOP
          win_api_directory_list.NextFile(hSearch, vcFile, bIsDir, toBoolean(:directory_list.exceptions));
          EXIT when vcFile is null;
          :directory_list.result := :directory_list.result||chr(10)||IsDir(vcFile, bIsDir);
     end LOOP;
     win_api_directory_list.CloseSearch(hSearch);
end;
:directory_list.directory is item which contain folder which you want to list. You can choose folder with function:
begin
:directory_list.directory := get_file_name(:directory_list.directory,NULL,NULL,'Select a Folder to list',OPEN_FILE,FALSE)||'\*.*';
end;
Item :directory_list.result is result item where it will be stored all file names which exist in folder (instead of this you can create e.g PL/SQL table which will handle all files which is listed in folder.