检查文件是否存在? [英] Check if a file exists?

问题描述

尝试检查我要读取的文件是否存在.

trying to check whether the file I want to read exists or not.

推荐答案

以下是另一种方法:

1. 使用dbms_lob程序包的BFILE和fileexists函数:

create or replace function FileExists(
   p_DirName in varchar2,     -- schema object name
   p_FileName in varchar2
 ) return number
is
  l_file_loc bfile;
begin
  l_file_loc := bfilename(upper(p_DirName), p_FileName);
  return dbms_lob.fileexists(l_file_loc);  -- 1 exists; 0 - not exists
end;

使用utl_file软件包的fgetattr功能:

Using fgetattr function of utl_file package:

create or replace function FileExists(
  p_DirName in varchar2,     -- schema object name
  p_FileName in varchar2
) return number
is
  l_fexists boolean;
  l_flen   number;
  l_bsize  number;
  l_res    number(1);
begin
  l_res := 0;
  utl_file.fgetattr(upper(p_DirName), p_FileName, l_fexists, l_flen, l_bsize);
  if l_fexists
  then
    l_res := 1;
  end if;  
  return l_res;
end;

这篇关于检查文件是否存在?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！