先执行SQL创建一个目录:

create or replace directory TEMP_JH  as 'd:/temp';

然后写程序进行操作:

DECLARE
      input_file   UTL_FILE.FILE_TYPE;
      input_buffer VARCHAR2(4000);
    BEGIN
      input_file := UTL_FILE.FOPEN(
                    'TEMP_JH', 'a.txt', 'w');
      --LOOP
        --UTL_FILE.GET_LINE(input_file,input_buffer);
        UTL_FILE.PUT_LINE(input_file,'aaaaaaaaaaaa');
      --END LOOP;
      UTL_FILE.FCLOSE(input_file);
    EXCEPTION
      WHEN OTHERS THEN
        vls_temp:='AAA'||sqlerrm;      
       
    END;