Create Directory in Procedure

Question

Hi Guys,
Any one please help i am getting an error during creating directory in procedure. Below is the code and error
I am using windows XP, oracle 10g, sql developer and sql plus.
code: -
create or replace
procedure checking as
filing UTL_File.File_Type;
create or replace directory dir as 'c:\temp';
begin
filing := UTL_File.Fopen(dir,'check.txt','w');
UTL_File.put_line(filing, 'Test');
UTL_File.FClose(filing);
End;
error
Error(5,1): PLS-00103: Encountered the symbol "CREATE" when expecting one of the following: begin function package pragma procedure subtype type use <an identifier> <a double-quoted delimited-identifier> form current cursor
Thanks

Answer 1

SQL> create or replace procedure myproc1
  2  as
  3  begin
  4  execute immediate 'create or replace directory MYDIR as ' || '''' || '/oracle/arch' || '''';
  5  end;
  6  /
Warning: Procedure created with compilation errors.
SQL> show error
Errors for PROCEDURE MYPROC1:
LINE/COL ERROR
4/1      PLS-00103: Encountered the symbol "CREATE" when expecting one of
         the following:
         begin case declare exit for goto if loop mod null pragma
         raise return select update while with <an identifier>
         <a double-quoted delimited-identifier> <a bind variable> <<
         close current delete fetch lock insert open rollback
         savepoint set sql execute commit forall merge
         <a single-quoted SQL string> pipe
SQL> create or replace procedure myproc1
  2  as
  3  begin
  4  execute immediate 'create or replace directory MYDIR as ' || '''' || '/oracle/arch' || '''';
  5  end;
  6  /
Procedure created.
SQL> exec myproc1;
PL/SQL procedure successfully completed.
SQL>