/* Richard A. DeVenezia
 * SUGI 29 - "Greetings from the Edge"
 * www.devenezia.com/papers
 */

data files;
  length name $200 type $4;
  length len mod b 8; drop b;
  format mod datetime19. len comma9.;

* dcl javaobj f ("ListFiles", ".");
  dcl javaobj f ("ListFiles", "C:\WinNT");

  f.callBooleanMethod ("getNext", b);
  do while (b);
    f.callStringMethod ("getName", name);
    f.callStringMethod ("getType", type);
    f.callLongMethod   ("getLength", len);
    f.callDoubleMethod ("getModifiedAsSasDateTime", mod);
    output;

    f.callBooleanMethod ("getNext", b);
  end;

  f.delete();
run;

proc print data=files uniform;
run;