*пишем список файлов в масив+считаем количество csv файлов
m.f_cnt=ADIR(arr1,CURDIR()+'IN\New.csv')

*запускаем цикл обработки всех csv файлов
FOR i=1 TO m.f_cnt
	*определяем имя файла
	m.f_name=SYS(5)+CURDIR()+'IN\'+arr1(i,1)
	*если файл сущестует
	IF FILE (m.f_name)=.t.
		*открываем файл для чтения
		STORE FOPEN(m.f_name) to file_handle  
		*Переходим в начало файла
		STORE FSEEK(m.file_handle,0) TO m.m_position
		*в цикле идем до конца файла
		do while !feof(m.file_handle)
			*Читаем строку из файла
			m.stro = ALLTRIM(fgets(m.file_handle))
			*переменной m.CLN_FNAME присвоим то что между 1 и 30 символом в строке
			m.CLN_FNAME=substr(m.stro,1,30)
			*переменной m.cln_taxcod присвоим то что между 32 и 42 символом в строке
			m.cln_taxcod=ALLTRIM(SUBSTR(m.stro,32,10))
			*вібираем таблицу куда будем сохранять данніе
			SELECT my_table
			*добавляем новую запись
			APPEND BLANK 
			*сохраняем переменніе в поля таблицы
			GATHER MEMVAR 
		endd
		*Закрваем файл
		FCLOSE(file_handle)
	ENDIF 

	MESSAGEBOX('Данные из файла '+m.f_name+' успешно приняты!',64,'Сообщение!',60000)
endf