Дан код:

dddd =getdir()
if not EMPTY(dddd)
THISFORM.Text12.Value=dddd
endif
SET PATH TO (dddd)

gnDbcnumber = ADIR(mArray,'&dddd\*.txt') && Create array
THISFORM.list1.RowsourceType=0
FOR nCount = 1 TO gnDbcnumber && Loop for number of databases
*!* ? countfile(nCount,1) && Display database names

THISFORM.list1.additem(mArray(nCount,1)) ---"ПРИ КОМПИЛИРОВАНИИ ВЫЛЕТАЕТ ОШИБКА, НЕ НАШЕЛ РЕШЕНИЕ ПРОБЛЕМЫ((("
ENDFOR
thisform.refresh

SET PATH TO HOME( ) && Set path to Visual FoxPro directory

PaulWist,

Юхууу!!! Ты меня спас(^_^)