oracle怎么删除目录对象,oracle创建目录,操作大对象

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;