My apologies
the code is
LOCAL ARRAY aryTemp(1,5)
LOCAL nCount, nMax, nLen, cFile
SET DEFAULT TO (cDirectory)
readpwini(inifile,'write','Paths','SearchPath',curdir() )
=ADIR(aryTemp, "*.*","AHRSD",1)
logging('GetSomeFiles folder '+cDirectory)
nMax = ALEN(aryTemp,1)
FOR nCount = 1 TO nMax...