It's a scary thought...

code:
BREAK OFF
$done=0
$projfile=0
DO 
   ? "Project Folder Number:" ?
   GETS $projfile
   IF $projfile=0
      ;$done=1 ;finite loop 
      $done=0  ;infinite loop
   ENDIF
   IF NOT $done
      IF EXIST ("$workingdir\$projfile\*.dgn")
         SHELL "XCOPY $workingdir\$projfile $DestDir\$projfile /E /I /Q" ?
      ENDIF
   ENDIF
UNTIL $done


[ 07. October 2002, 23:11: Message edited by: Waltz ]
_________________________
We all live in a Yellow Subroutine...