WIN_API_UTILITY.DELETE_FILE('C:\MyFile.txt',FALSE);

FUNCTION DEL_FILE(s_path IN OUT VARCHAR2,n_key IN NUMBER) RETURN NUMBER IS
  name_test    varchar2(600);
  test_file    TEXT_IO.FILE_TYPE;
  s_errm       varchar2(2000);
  s_cp         varchar2(5);
BEGIN
  s_cp:='001';
  if substr(ltrim(rtrim(s_path)),-1)<>'\' then
     s_path := ltrim(rtrim(s_path))||'\';
  end if;
  s_cp:='002';
  if n_key=1 then   ---<<---------- Проверка пути
     s_cp:='003';
     name_test:=s_path||'MyFile.txt';
     test_file := TEXT_IO.FOpen(name_test,'W');
     TEXT_IO.FClose(test_file);
     s_cp:='004';
     WIN_API_UTILITY.DELETE_FILE(name_test,FALSE);
     s_cp:='005';
   end if;
  return 1;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
     msgbox('Проверка пути: NO_DATA_FOUND');
     RETURN NULL; 
  WHEN OTHERS THEN
    s_errm:=s_cp||','||ltrim(rtrim(sqlerrm))||','||name_test;
    msgbox(s_errm);
    return 0;
END;