Hi,
Here is a very small example, where you can define your directory and object path :
<pre>
DEF VAR l-dir AS CHAR.
DEF VAR l-nextfile AS CHAR.
DEF STREAM l-stream.
DEF VAR l-objpath AS CHAR.
l-dir = "x:\source".
l-objpath = "x:\obj".
INPUT STREAM l-stream FROM OS-DIR( l-dir ).
REPEAT ON STOP UNDO, LEAVE:
IMPORT STREAM l-stream l-nextfile.
IF LOOKUP(l-nextfile,".,..") > 0 THEN NEXT.
FILE-INFO:FILE-NAME = l-dir + "\" + l-nextfile.
IF NOT FILE-INFO:FILE-TYPE BEGINS "F" THEN NEXT.
COMPILE value( l-nextfile ) SAVE INTO VALUE( l-objpath ).
END.
</pre>
Regards,
Gabor
