File Exists? .. Forms6i

Question

Hi,
How to check only the existence of a file through Forms6i ? I have tried giving the full path using WIN_API_UTILITY , but could not penetrate. I can execute the .exe file of other terminal if the file exists on the specified path, but could not check whether file exists or not.
Pl. Help me at your earliest.
Bye
koushik.

Answer 1

Hi Kaushik,
Here is the code for the same.
HTH.
REgds,
Bhavesh
DECLARE
CURSOR cur_date IS
SELECT TO_CHAR(SYSDATE,'DDMMRR')
FROM DUAL;
var_date VARCHAR2(200);
var_dir VARCHAR2(200);
in_file Text_IO.File_Type;
out_file Text_IO.File_Type;
BEGIN
OPEN cur_date;
FETCH cur_date INTO var_date;
CLOSE cur_date ;
var_dir := 'D:\Print\'| |var_date| |:emp.empno| |'.txt';
in_file := Text_IO.Fopen(var_dir, 'r');
IF Text_IO.Is_Open(in_file) THEN
MESSAGE('FILE Already Exist, Create a new file......');PAUSE;
var_dir := 'D:\Print\'| |var_date| |:emp.empno | |'1'| |'.txt';
out_file := TEXT_IO.FOPEN(var_dir, 'w');
MESSAGE('FILE Cerated......');PAUSE;
END IF;
--TEXT_IO.FCLOSE(out_file);
EXCEPTION
--WHEN NO_DATA_FOUND THEN
--TEXT_IO.FCLOSE(out_file);
WHEN OTHERS THEN
MESSAGE('File Does not Exist');PAUSE;
MESSAGE('Generating File For '| |var_dir);PAUSE;
out_file := TEXT_IO.FOPEN(var_dir, 'w');
MESSAGE('File Created..........');PAUSE;
END;
null