如何用PL/SQL判断一个文件是否存在？

纵横四海

用UTL_FILE可以实现的，如果你打开时读不到文件就会出错的，可以利用此方法来判断文件的存在性，但我想不是任何文件都可以的，另外还需在init.ora中作设置，比较复杂。

要想实现,一般要建立directory对象或配置utl_file_dir参数,但这两种方案都有一定的限制,除非你把directory建成根目录,或utl_file_dir=*
其实还有一种变通方案,就是使用java procedure.在偶的blog里有例程.不过这样也有一定的要求,就是要安装oracle JVM组件.

纵横四海

1. CREATE OR REPLACE PROCEDURE read_demo (file_name VARCHAR2) IS
   
2. vSFile   utl_file.file_type;
   
3. vNewLine VARCHAR2(200);
   
4. BEGIN
   
5.   vSFile := utl_file.fopen('ORALOAD', 'test.txt','r');
   
6.   IF utl_file.is_open(vSFile) THEN
   
7.     LOOP
   
8.       BEGIN
   
9.         utl_file.get_line(vSFile, vNewLine);
   
10.         IF vNewLine IS NULL THEN
    
11.           EXIT;
    
12.         END IF;
    
13.         INSERT INTO test
    
14.         (fld1, fld2)
    
15.         VALUES
    
16.         (vNewLine, file_name);
    
17.       EXCEPTION
    
18.         WHEN NO_DATA_FOUND THEN
    
19.           EXIT;
    
20.       END;
    
21.     END LOOP;
    
22.     COMMIT;
    
23.   END IF;
    
24.    utl_file.fclose(vSFile);
    
25.   utl_file.frename('ORALOAD', 'test.txt', 'ORALOAD', 'x.txt', TRUE);
    
26. EXCEPTION
    
27.   WHEN utl_file.invalid_mode THEN
    
28.     RAISE_APPLICATION_ERROR (-20051, 'Invalid Mode Parameter');
    
29.   WHEN utl_file.invalid_path THEN
    
30.     RAISE_APPLICATION_ERROR (-20052, 'Invalid File Location');
    
31.   WHEN utl_file.invalid_filehandle THEN
    
32.     RAISE_APPLICATION_ERROR (-20053, 'Invalid Filehandle');
    
33.   WHEN utl_file.invalid_operation THEN
    
34.     RAISE_APPLICATION_ERROR (-20054, 'Invalid Operation');
    
35.   WHEN utl_file.read_error THEN
    
36.     RAISE_APPLICATION_ERROR (-20055, 'Read Error');
    
37.   WHEN utl_file.internal_error THEN
    
38.     RAISE_APPLICATION_ERROR (-20057, 'Internal Error');
    
39.   WHEN utl_file.charsetmismatch THEN
    
40.     RAISE_APPLICATION_ERROR (-20058, 'Opened With FOPEN_NCHAR
    
41.     But Later I/O Inconsistent');
    
42. WHEN utl_file.file_open THEN
    
43.     RAISE_APPLICATION_ERROR (-20059, 'File Already Opened');
    
44. WHEN utl_file.invalid_maxlinesize THEN
    
45.     RAISE_APPLICATION_ERROR(-20060,'Line Size Exceeds 32K');
    
46. WHEN utl_file.invalid_filename THEN
    
47.     RAISE_APPLICATION_ERROR (-20061, 'Invalid File Name');
    
48. WHEN utl_file.access_denied THEN
    
49.     RAISE_APPLICATION_ERROR (-20062, 'File Access Denied By');
    
50. WHEN utl_file.invalid_offset THEN
    
51.     RAISE_APPLICATION_ERROR (-20063,'FSEEK Param Less Than 0');
    
52. WHEN others THEN
    
53.     RAISE_APPLICATION_ERROR (-20099, 'Unknown UTL_FILE Error');
    
54. END read_demo;
    
55. /

复制代码

纵横四海

declare   
  file_handle   UTL_FILE.FILE_TYPE;   
  begin   
  file_handle   :=   UTL_FILE.FOPEN('/tmp',   '文件名',   'w');   
  UTL_FILE.FCLOSE(file_handle);   
  exception   
  WHEN   utl_file.invalid_path   THEN   
  raise_application_error(-20000,   'ERROR:   Invalid   path   for   file   or   path   not   in   INIT.ORA.');   
  end;