DECLARE
    v_path VARCHAR2 := 'C:\ESM\IMAGE\';
BEGIN
    HOST ('COPY '||v_path||'admin.jpg '||v_path||'BE\2013\', NO_SCREEN);
END;

Host ('Copy c:\mughal\a.doc d:\kings');

DECLARE
    v_image_path	VARCHAR2(30);
    v_last_slash_pos    NUMBER;
    v_image_name	VARCHAR2(30);
    image_ext		VARCHAR2(3);
    v_path		VARCHAR2(50) := 'C:\EMP\';
    v_year  		VARCHAR2(4);
    v_new		VARCHAR2(100);
BEGIN
    v_image_path      := get_file_name('C:\ADMINDOCS', NULL,'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|', NULL);
    v_last_slash_pos  := INSTR(v_image_path, '\', -1) + 1;
    v_image_name      := SUBSTR (v_image_path, v_last_slash_position);    
    image_ext	      := SUBSTR (v_image_path, -3);

--  MESSAGE ('IMAGE PATH: '||v_image_path);
    v_year  :=  TO_CHAR(SYSDATE, 'YYYY');
    v_new   :=	v_path||v_year;
    
    HOST('MD '||v_new, NO_SCREEN);
    HOST('COPY '||v_image_path||' '||v_new, NO_SCREEN);
    HOST('REN '||v_new||'\'||v_image_name||'.'||image_ext||' '||:EMP.empno||'.'||image_ext , NO_SCREEN);

    READ_IMAGE_FILE (v_image_path, image_ext, 'EMP.emp_photo');
    insert_photo (:EMP.empno, TO_CHAR(:EMP.empno)||'.'||image_ext);

    IF NOT FORM_SUCCESS THEN
	RAISE FORM_TRIGGER_FAILURE;
    END IF;
END;

declare
  v_directory  varchar2(200) := 'c:\EMP\';
  a	     	 		varchar2(50);
begin 

select TO_CHAR(sysdate,'YYYY')
      	into a
	from dual;
        v_directory:='mkdir c:\EMP\'||a;
	
	host(v_directory,NO_SCREEN);
	HOST('COPY D:\admin.jpg'||v_directory, NO_SCREEN);

if form_success then
     	message('Folder Created for Current Year into Emp Folder & File Copied ');
     	message('Folder Created for Current Year into Emp Folder & File Copied ');
	    
else
    message('there are errors ');
end if; 
end;

:CONTROL.file_path := get_file_name('C:\ADMINDOCS', NULL, 
    'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|', NULL);

DECLARE
	image_path VARCHAR2(200);
	image_extension VARCHAR2(3);
BEGIN
	image_path := :CONTROL.file_path;
	image_extension := SUBSTR(:CONTROL.file_path, -3);
	READ_IMAGE_FILE(:CONTROL.file_path, image_extension, 'EMP.emp_photo');

END;

CREATE OR REPLACE DIRECTORY photo_folder AS 'C:\EMP\';

   
   host('cmd /c rename "'||OLDNAME||'" " '||NEWNAME||' " '); 

    HOST('MD '||v_new, NO_SCREEN);
    HOST('COPY '||v_image_path||' '||v_new, NO_SCREEN);
    HOST('REN '||v_new||'\'||v_image_name||'.'||image_ext||' '||:EMP.empno||'.'||image_ext , NO_SCREEN