oracle 10g 以上 遍历文件

转:

CREATE OR REPLACE PROCEDURE list_directory
(directory VARCHAR2)
IS
ns VARCHAR2(1024);
v_directory VARCHAR2(1024);
BEGIN
v_directory := directory;
SYS.DBMS_BACKUP_RESTORE.SEARCHFILES(v_directory, ns);
FOR each_file IN (SELECT fname_krbmsft AS name FROM x$krbmsft) LOOP
DBMS_OUTPUT.PUT_LINE(each_file.name);
END LOOP;
END;
/

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/197458/viewspace-1045202/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/197458/viewspace-1045202/