>The other code isn't mine either. I haven't used PUBLIC variables since almost ever, even in Main.prg.

I never doubted that. :)
>
>>Hi Colin
>>
>>Just so you know, the code you have below is not Craig's code. A much cleaner and simpler version of the code is this: That is because it does not use public variables, it does not use 2 arrays and it does not use macro substitution.
>>
>>

* Loop through current folder to find bad dbf
>>* files by trying to open each. Log failures.
>>CLEAR
>>LOCAL lnBadCount, lcTable, loError
>>lnBadCount = 0
>>*Grabs first DBF
>>lcTable = SYS(2000,"*.DBF")
>>DO WHILE NOT m.lcTable == ""
>>  TRY
>>    USE (m.lcTable) IN 0 ALIAS thisDbf
>>    USE IN SELECT("thisDbf")
>>  CATCH TO loError
>>    ? "Table " + m.lcTable + " is bad."
>>    lnBadCount = m.lnBadCount + 1
>>  ENDTRY
>>  *Grabs NEXT DBF
>>  lcTable = SYS(2000,"*.DBF",1)
>>ENDDO
>>* Tell the user how it went
>>? IIF(m.lnBadCount = 0, "No errors.", TRANSFORM(m.lnBadCount) + " table(s) could not be opened.")

>>
>>>>Borislav gave you the code.
>>>>
>>>>Keep in mind that this will not guarantee the file is not corrupt. It will simply tell you if it can be opened.
>>>
>>>That is exactly what i wanted it to do - it enables me to spot the corrupt tables and replace them from a backup
>>>
>>>Thanks for your help
>>>
>>>>
>>>>
>>>>>This is my code - it opens the first database and then errors trying to get the second with Funcion argument value type or count is invalid - I must be missing something very obvious
>>>>>
>>>>>CLEAR
>>>>>CLEAR ALL
>>>>>SET EXACT ON
>>>>>SET TALK off
>>>>>SET DEFAULT TO c:\global
>>>>>PUBLIC dbfs,cta
>>>>>DIMENSION dbfs(1000)
>>>>>DIMENSION gadatabase(1000)
>>>>>gadatabase=""
>>>>>
>>>>>
>>>>>gnDbcnumber = ADIR(gaDatabase, '*.DBF') && Create array
>>>>>FOR nCount = 1 TO gnDbcnumber && Loop for number of databases
>>>>>dbfs(ncount)=gadatabase(ncount,1)
>>>>>ENDFOR
>>>>>
>>>>>
>>>>>STORE ncount TO cta
>>>>>
>>>>>DIMENSION dbfs(cta)
>>>>>
>>>>>
>>>>>FOR xxxx=1 TO cta
>>>>>STORE ALLTRIM(dbfs,xxxx) TO tablex
>>>>>tablex=ALLTRIM(tablex)
>>>>>USE &tablex IN 0 SHARED
>>>>>next