Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Hi all,
I have the following loop within my script..
LET Dir = 'C:\Test1\Temp';
ODBC CONNECT32 TO [DBF Driver];
SET errormode = 0;
For each file in FileList('$(Dir)\*.DBF')
LET vFilename = subfield(subfield('$(file)', '\', -1),'.',1);
If len(subfield('$(file)','\',-1))>12 then
LET Data = chr(96) & '$(Dir)' & chr(96) & '\' & chr(96) & Subfield(GetShortName('$(file)'),'\',-1) & chr(96);
else
LET Data = chr(96) & '$(Dir)' & chr(96) & '\' & chr(96) & Subfield('$(file)','\',-1) & chr(96);
ENDIF;
Data:
SQL SELECT *
FROM $(Data);
SET errormode = 1;
STORE Data into
DROP TABLE Data;
NEXT file;
say i have multiple directories, what i want to do is loop through the multiple directories and perform the above loop in each.
e.g.
if my directories are :
C:\Test1\Temp
C:\Test2\Temp
C:\Temp\Test
how would i list those directories then get a loop to go to the first one, run the above loop then go to the 2nd one, run the above loop then again with the 3rd directory.
Any help would be appreciated.
Thanks
Wrap another loop around and change the Dir assignment like this ...
For each d in 'C:\Test1\Temp','C:\Test2\Temp','C:\Temp\Test'
Let Dir = '$(d)';
{rest of current code}
next d;
flipside
Wrap another loop around and change the Dir assignment like this ...
For each d in 'C:\Test1\Temp','C:\Test2\Temp','C:\Temp\Test'
Let Dir = '$(d)';
{rest of current code}
next d;
flipside