FUNCTION content_to_memo  &&перекладывает текстовые страницы из папки c:\fox\site_1\ в таблицу site_name
CD c:\fox\site_1\
LOCAL current_catalog
LOCAL count_of_dir
LOCAL count_of_pages  
current_catalog=CURDIR()
count_of_dir=ADIR(directory_info, "D")  &&Заносит в массив информацию о папках и возвращает количество папок
count_of_pages =ADIR(pages_info,"*.txt")  &&Заносит в массив информацию о файлах и возвращает количество файлов

IF count_of_dir != 0  
LOCAL d
FOR d=1 TO count_of_dir
CD (current_catalog)+(JUSTSTEM(directory_info[i,1]))
  table_name=(JUSTSTEM(directory_info[i,1]))
  IF count_of_pages != 0  
      LOCAL i  
      FOR i=1 TO count_of_pages  
                CD c:\fox\tables\
          CREATE TABLE (table_name) (m1 m)  
          APPEND MEMO m1 FROM table_name
      ENDFOR  
  ENDIF      
ENDFOR   
ENDIF

CREATE TABLE (table_name) (m1 m)    
APPEND MEMO m1 FROM table_name

FOR d=1 TO count_of_dir
CD (current_catalog)+(JUSTSTEM(directory_info[i,1]))
  table_name=(JUSTSTEM(directory_info[i,1]))
  IF count_of_pages != 0  
      LOCAL i  
      FOR i=1 TO count_of_pages  
          CREATE TABLE (table_name) (m1 m)  
          APPEND BLANK
          APPEND MEMO m1 FROM table_name
      ENDFOR  
  ENDIF      
ENDFOR

FOR d=1 TO count_of_dir  
  CD (current_catalog)+(JUSTSTEM(directory_info[i,1]))  
    table_name=(JUSTSTEM(directory_info[i,1]))  
    IF count_of_pages != 0    
      LOCAL i    
      CREATE TABLE (JUSTSTEM(directory_info[i,1])) (m1 m)    
      FOR i=1 TO count_of_pages    
         APPEND BLANK  
         APPEND MEMO m1 FROM table_name  
      ENDFOR    
    ENDIF    
  ENDFOR

 CD (current_catalog)+(JUSTSTEM(directory_info[i,1]))

CD (m.current_catalog + JUSTSTEM(directory_info[m.i, 1]))

FUNCTION content_to_memo  
* Каталого, где находятся сканируемые папки
LOCAL lcSourceCatalog
lcSourceCatalog = "c:\fox\site_1\"
* Каталог, где будут созданы таблицы
LOCAL lcTargetCatalog
lcTargetCatalog = "c:\fox\tables\"
LOCAL laDirectory(1), laFile(1)
LOCAL lnI, lnJ, lcTableName, lcTableFullName
* Внешний цикл по папкам
FOR lnI = 1 TO ADIR(laDirectory,m.lcSourceCatalog+"*.*","D")
    IF INLIST(laDirectory[m.lnI,1],".","..") OR AT("D",laDirectory[m.lnI,5])=0 
        * Это не директория или одна из корневых директорий. Не нужно обрабатывать
        LOOP
    ENDIF
    * Имя новой таблицы (совпадает с алиасом) Имя не должно начинаться с цифры
    lcTableName = JUSTSTEM(laDirectory[m.lnI,1])
    * Полное имя таблицы с путем доступа и расширением
    lcTableFullName = FORCEPATH(FORCEEXT(m.lcTableName,"DBF"),m.lcTargetCatalog)
    * Проверям факт существования таблицы с нужным именем
    IF FILE(m.lcTableFullName)
        * Если есть, то проверям не открыта ли она уже
        IF USED(m.lcTableName)=.F.
            USE (m.lcTableFullName) IN 0
        ENDIF
    ELSE
        CREATE TABLE (m.lcTableFullName) (FileName C(50), Content M)
    ENDIF
    
    * Цикл по списку текстовых файлов в одной директории
    SELECT (m.lcTableName)
    FOR m.lnJ = 1 TO ADIR(laFile,m.lcSourceCatalog+laDirectory[m.lnI,1]+"\*.txt")
        LOCATE FOR FileName = PADR(laFile[m.lnJ,1],50)
        IF FOUND() = .T.
            * Этот файл уже был закачан. Ничего не делаем
            LOOP
        ENDIF
        INSERT INTO (m.lcTableName) (FileName) VALUES (laFile[m.lnJ,1])
        APPEND MEMO Content FROM (FORCEPATH(laFile[m.lnJ,1],m.lcSourceCatalog+laDirectory[m.lnI,1]))
    ENDFOR
ENDFOR