aUCBLogo Demos and Tests / testdirtraverse


to testdirtraverse
   changeDir "C:\TP
   d=(Files [*.*] wxDIR_DIRS)
   n=0
   foreach d
   [   changeDir ?
      print ?
      f=(Files "*.pas)
      print f
      n1=count f
      print n1
      n=n+n1
      changeDir "..
   ]
   (print n [pascal files])
end