packages/std/bbs/appli/exampleFilesFromDirectory.bbs

   1 category "example"
   2 author "jpr@creatis.univ-lyon1.fr"
   3
   4 include std
   5
   6 new  FilesFromDirectory fd
   7 set fd.In "."
   8 set fd.Recursive false
   9
  10
  11 //print "Files found in $fd.In"
  12 print "-Not recursive----------------------------"
  13 print "$fd.Out"
  14
  15 set fd.Recursive true
  16 print "-Recursive----------------------------"
  17 print "$fd.Out"