PRIVATE N, I, dflt_dir, fnm

dflt_dir = 'C:\AAA\'

* заносим инф. о тестовых файлах заданной папки в массив
DIMENSION dir_arr[1]
N = adir(dir_arr, dflt_dir + '*.TXT')
IF N = 0
  RETURN
ENDIF

* создаем таблицу для имен и содержимого файлов
SELECT 0
CREATE TABLE ftmp (fnum N(5), fname C(254), fcontent M)

* заносим инф. о файлах из массива в таблицу
FOR I = 1 TO N
  fnm = m.dflt_dir + dir_arr[I,1]
  APPEND BLANK
  REPLACE fname WITH m.fnm, ;
          fnum WITH I
  APPEND MEMO fcontent FROM (m.fnm) OVERWRITE
ENDFOR

* создаем таблицу для текстовых файлов в построчном представлении
SELECT 0
CREATE TABLE ltmp (fnum N(5), lnum N(5), fline C(254))

* заносим содержимое первого файла из таблицы файлов
* в таблицу с построчным представлением
* fnum-номер файла, lnum-номер строки в файле
SELECT ftmp
GO TOP
SCAN
  SELECT ltmp
  N = memlines(ftmp.fcontent)
  FOR I = 1 TO N
    APPEND BLANK
    REPLACE fnum WITH ftmp.fnum, ;
            lnum WITH I, ;
            fline WITH mline(ftmp.fcontent,I)
  ENDFOR
ENDSCAN

* закрываем таблицы
USE IN ftmp
USE IN ltmp