set procedure to :duflp:stringex.cc
cPath = set('path')
if ';'$cPath
  aDirs = new stringex(cPath).breakstring(';')
else
  aDirs = new array()
  aDirs.add(set('path'))
endif
if not empty(aDirs[1])
   for n = 1 to aDirs.size
      ?aDirs[n]
      //add code here to call delete program for this folder
   next
else
   msgbox('No "look-in" folders')
endif