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;