declare
	filename varchar2(500);
	filename2 varchar2(500);
	v_dest_path varchar2(500);
begin	
	filename := :admin_attachments.ATTACHED_FILE;
	filename2 := substr(filename, (instr(filename,'\',-1,1)+1));
	v_dest_path := 'C:\Users\';
 if filename2 is not null then	--run only when file select 
	host('cmd /c copy '||filename||' '||v_dest_path||filename2, no_screen);
	if not form_success then
		message('Error--Can Not copy Check Path.',no_screen);
		message('Error--Can Not copy Check Path.',no_screen);
		else
		Message('File downloaded Successfully. Check Location "C:\Users"'||filename2);
		Message('File downloaded Successfully. Check Location "C:\Users"'||filename2);
		--Commit_form;
	end if;
end if;	

End;