create any directory to scott;
conn scott/tiger;
drop directory liu_dir;
create or replace directory liu_dir as 'd:/test';
declare
v_file bfile;
v_dirname varchar2(30);
v_location varchar2(200);
v_fileisopen integer;
v_fileisexists integer;
begin
v_file := BFILENAME('TEST',test01.jpg);--必须为大写
v_fileisexists := DBMS_LOB.fileexists(v_file);
if v_fileisexists = 1 then
DBMS_OUTPUT.PUT_LINE('THE FILE EXISTS!');
v_fileisopen := DBMS_LOB.fileisopen(v_file);
if v_fileisopen = 1 then
DBMS_OUTPUT.PUT_LINE('THE FILE IS OPEN!');
ELSE
DBMS_OUTPUT.PUT_LINE('OPENING THD FILE!');
DBMS_LOB.FILEOPEN(v_file);
end if;
DBMS_LOB.filegetname(v_file,v_dirname,v_location);
DBMS_OUTPUT.put_line('THE DIECTORY OBJECT IS:'||v_dirname||'the file name is:'||v_location);
DBMS_LOB.fileclose(v_file);
else
DBMS_OUTPUT.PUT_LINE('THE FILE CAN NOT BE FOUND!');
END IF;
END;
Oracle文件操作示例
本文提供了一个Oracle PL/SQL过程示例,展示了如何创建目录、检查文件是否存在及是否打开,并获取文件的位置信息。通过使用DBMS_LOB包中的函数,如FILEEXISTS、FILEISOPEN和FILEGETNAME等,来实现这些功能。
3294

被折叠的 条评论
为什么被折叠?



