Check FAQ #31943
Class to close any cursors created after it was instantiated>
>On my form Load I have to open all tables in specific directory (That tables is free tables, not dbc) and on the form unload I have to close the tables.
>
>The following code open it but:
>1. If you run it twice the tables apeared duplicate with aliases as W15,W45 etc.
>2. 'If used... use in...' not close any table.
>
>
local ctbldir,ctabletoopen
>ctbldir= addbs('C:\DATA\')
>for i=1 to adir(lafiles, ctbldir+ "*.dbf")
> ctabletoopen=ctbldir+ lafiles(i,1)
> if used (ctabletoopen)
> use in (ctabletoopen)
> endif
> if not used (ctabletoopen)
> use (ctabletoopen) again in 0 shared
> endif
>endfor
>
>Tnx
--sb--