批量处理外部文件入库（我只会单个的）注：结贴率100%

BFILEcreate table T
(
  NAME    VARCHAR2(40),
  CONTENT CLOB,
  SQLTEXT BFILE
);
create or replace directory dirt as 'd:\大对象';
insert into t(name,sqltext) values('测试'，bfilename('DIRT','kele.txt');
COMMIT;
CLOB
create or replace procedure pro_clob
as
v_bfile bfile;
v_clob clob;
begin
insert into t(name,content)
values('中华鲟自然保护区',empty_clob())
returning content into v_clob;
v_bfile:=bfilename('DIRT','KELE.txt');
dbms_lob.fileopen(v_bfile);
dbms_lob.loadfromfile(v_clob,v_bfile,dbms_lob.getlength(v_bfile));
dbms_lob.fileclose(v_bfile);
commit;
end;
BLOB
create table IMAGE
(
  NAME VARCHAR2(100),
  DATA BLOB
);CREATE OR REPLACE PROCEDURE PRO_IMAGE
AS
  LOB_LOC  BLOB; 
  SRC_FILE BFILE;    
BEGIN 
  INSERT INTO IMAGE 
  VALUES 
    ('上海管信属性表结构', EMPTY_BLOB()) 
  RETURNING DATA INTO LOB_LOC;   SRC_FILE := BFILENAME('DIRT', 'shgx.jpg'); 
--SELECT DATA INTO DST_FILE FROM IMAGE WHERE NAME = 'mapsmall.gif' FOR UPDATE; 
DBMS_LOB.FILEOPEN(SRC_FILE); 
 
  DBMS_LOB.LOADFROMFILE(LOB_LOC, SRC_FILE,dbms_lob.GETLENGTH(SRC_FILE)); 
DBMS_LOB.FILECLOSE(SRC_FILE); 
  COMMIT; 
END; 
但是批量的怎么实现 BFILE批量30分 BLOB，CLOB各再加50分