drop directory basura;
create or replace directory basura as 'd:\basura\';

create or replace procedure GetBlob(Vc in number, Vnom in varchar2) is
   x     BLOB;
   fils  BFILE:= BFILENAME('BASURA',Vnom); 
begin
   select adjunto into x
   from vmladjuntos
   where correo=Vc
     and nombre=Vnom
   for update;
   dbms_lob.fileopen(fils, dbms_lob.lob_readonly); 
   dbms_lob.loadfromfile(x, fils, dbms_lob.getlength(fils)); 
   dbms_lob.fileclose(fils);
   Commit;
end;
/

select NOMBRE, dbms_lob.getlength(BFILENAME('BASURA',NOMBRE)) from VMLADJUNTOS;

BEGIN
   GetBlob(0,'movded.tif');
END;
/

BEGIN
   GetBlob(0,'x.doc');
END;
/

select NOMBRE, dbms_lob.getlength(adjunto) from VMLADJUNTOS;


select a,b, xxname(D),dbms_lob.getlength(D)  from zz;

declare
   x utl_file.file_type;
begin
   x:=utl_file.fopen('BASURA','x.txt','w');
   utl_file.put_line(x, 'Hola');
   utl_file.fclose(x);
end;
/

--create or replace directory cobros as 'D:/TEXTO/';