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;