CREATE or REPLACE JAVA SOURCE NAMED "DeleteFile" AS

import java.io.*;

import java.sql.*;

import oracle.jdbc.driver.*;

import oracle.sql.*;

import java.util.Date;

import java.text.*;

import java.text.DateFormat.*;

/*

** Delete files in specified directories that were last modified before

** a specified date

*/

public class DeleteFile {

public static int delete(oracle.sql.ARRAY tbl) throws SQLException {

try {

// Retrieve the contents of the table/varray as a result set

ResultSet rs = tbl.getResultSet();

// Iterate through the rows returned by the result set

// NOTE: The JDBC 2.0 standard specifies that the ResultSet

// contains rows consisting of two columns.

//

// Column 1 stores the element index for the row.

// Column 2 stores the actual element value.

//

for (int ndx = 0; ndx < tbl.length(); ndx++) {

rs.next();

// Retrieve the array index

int aryndx = (int)rs.getInt(1);

// Retrieve the array element (an object returned as type STRUCT)

STRUCT obj = (STRUCT)rs.getObject(2);

// Retrieve the attributes for the object

// as an array of Java Objects

Object[] attrs = obj.getAttributes();

// Retrieve the individual attributes

// casting the object to the correct type

String fileDir = (String)attrs[0];

Timestamp saveDate = (java.sql.Timestamp)attrs[1];

// Check that the directory exists

if (new File (fileDir).isDirectory()) {

// Retrive a list of the files in the specified directory

String[] filesList = new File (fileDir).list();

// Loop through the files checking which ones are older then the date specified

for (int i = 0; i < filesList.length; i++) {

String fullPathName = fileDir + "\\"+filesList[i];

if (lastModified(fullPathName) < saveDate.getTime()) {

delete(fullPathName);

}

}

}

}

// Close the result set

rs.close();

return 0;

} catch (Exception e) {

e.printStackTrace();

return -1;

}

}

public static long lastModified (String fileName) {

return new File (fileName).lastModified();

}

public static int delete (String fileName) {

return bln2int (new File (fileName).delete());

}

public static int bln2int (boolean valIn) {

if (valIn) return 1; else return 0;

}

}

/*======================================================================

| Supplement to the fifth edition of Oracle PL/SQL Programming by Steven

| Feuerstein with Bill Pribyl, Copyright (c) 1997-2009 O'Reilly Media, Inc.

| To submit corrections or find more code samples visit

| http://oreilly.com/catalog/9780596514464/

*/