code:

---

 
BREAK ON

"Source Directory:" ?
GETS $workingdir

"Destination Directory:" ?
GETS $destdir

WHILE 1=1
	"Project Folder Number:" ? 
	GETS $projfile

	$cmdstr = "%COMSPEC% /q /e:1024 /c XCOPY $workingdir\$projfile $DestDir\$projfile /E /I"
	$dirplus = DIRPLUS("$workingdir\$projfile","*.*",1)

	FOR EACH $item IN $dirplus
	   IF INSTR($item,".dat")
	     SHELL $cmdstr
	   ENDIF
	NEXT
LOOP

FUNCTION DirPlus()...........
............. 

---

However, there is a glitch that I don't know how to fix. It seems pretty simple though . For every item that has the extension ".dat", the entire contents of the folder is copied. EX if there are 4 files with ext ".dat", then everything is copied 4 times. I only need it copied one time.

[ 09. October 2002, 20:10: Message edited by: professor ]