SCOTT@orcl_11g> create or replace and compile java source named "DirList"
  2  as
  3  import java.io.File;
  4  import java.util.Date;
  5  import java.text.DateFormat;
  6  
  7  
  8  public class DirList  {
  9  
 10    public static void getDirList(String directory) {
 11  	   File dir = new File( directory );
 12  	   if (!dir.isDirectory()) {
 13  	     System.out.println("Path: " + directory + " is not a directory.");
 14  	     return;
 15  	   }
 16  	   System.out.print("\nDirectory " + dir + ": ");
 17  
 18  	   File[] dirList = dir.listFiles();
 19  	   if (!dir.canRead() || dirList == null) {
 20  	     System.out.println("unreadable");
 21  	     return;
 22  	   }
 23  
 24  	   if (dirList.length < 1) {
 25  	     System.out.println("empty");
 26  	     return;
 27  	   }
 28  	   System.out.println(dirList.length + " files");
 29  
 30  	   // Sort the filenames
 31  	   java.util.Arrays.sort(dirList);
 32  
 33  	   // Print out all of the files in this directory
 34  	   for(int i = 0; i < dirList.length; i++) {
 35  	       File file = dirList[i];
 36  
 37  	       // Print the file's modification date
 38  	       Date modDate = new Date(file.lastModified());
 39  	       DateFormat df = DateFormat.getDateInstance(DateFormat.SHORT);
 40  	       System.out.print("\t" + df.format(modDate));
 41  
 42  	       // Print the file's length
 43  	       System.out.print("\t" + file.length());
 44  
 45  	       // Print the file name
 46  	       System.out.print("\t" + file.getName());
 47  	       // Print slash if File is a directory
 48  	       if (file.isDirectory()) System.out.print(File.separator);
 49  
 50  	       System.out.print("\n");
 51  	   }
 52  
 53  	   // Now recursively list all the directories
 54  	   for(int i = 0; i < dirList.length; i++) {
 55  	       File file = dirList[i];
 56  	       if (file.isDirectory()) {
 57  		 getDirList(file.getAbsolutePath());
 58  	       }
 59  	   }
 60    }
 61  
 62  
 63    public static void main(String[] args) {
 64  	 getDirList(args[0]);
 65    }
 66  }
 67  /

Java created.

SCOTT@orcl_11g> show err
No errors.
SCOTT@orcl_11g> create or replace procedure get_dir_list( p_directory in varchar2 )
  2  as language java
  3  name 'DirList.getDirList( java.lang.String )';
  4  /

Procedure created.

SCOTT@orcl_11g> exec dbms_java.set_output(100000);

PL/SQL procedure successfully completed.

SCOTT@orcl_11g> exec get_dir_list( 'c:\temp' );
Directory c:\temp: 1 files
	3/28/08	6	PROBCK22.XML

PL/SQL procedure successfully completed.

SCOTT@orcl_11g> exec get_dir_list( 'c:\test' );
Directory c:\test: 2 files
	10/30/07	3218	cats.sql
	12/8/07	3785	cats.txt

PL/SQL procedure successfully completed.

SCOTT@orcl_11g>