mam następujący kod

// w tym wypadku pobiera mi zarówno pliki dbf jak i xls
string sPath = arg0, sMask = "*.dbf", sKontrDok, all
string PlikIn = find file ( sPath + sMask ), tablica_pozycji_pk(1), pozycja_pk

//pobieranie tablicy plików
While PlikIn
buf = PlikIn
find regular "{*}{(!\\)##}$"
tablica_pozycji_pk(Size ( tablica_pozycji_pk )) = ( regular 2)
grow tablica_pozycji_pk,1
PlikIn = find next file
wend
shrink tablica_pozycji_pk,1

// w tym wypadku nie reprezentuje mi wszystkich plików xls
string sPath2 = arg0, sMask2 = "*.xls"
string PlikIn2 = find file ( sPath2 + sMask2 ), tablica_pozycji_pk2(2), pozycja_pk2

// pobieranie tablicy plików

While PlikIn2
buf = PlikIn2
find regular "{*}{(!\\)##}$"
tablica_pozycji_pk2(Size ( tablica_pozycji_pk2 )) = ( regular 2)
grow tablica_pozycji_pk2,1
PlikIn2 = find next file
wend
shrink tablica_pozycji_pk2,1