Добрый день, попытался открыть два dbf файла для добовления информации из одного в другой, невышло(( Вообще это возможно? как делал: Код: ИмяФайла = ФС.НайтиПервыйФайл(ПутьКПапкеСdbfФайлами+"*.dbf"); Файл = СоздатьОбъект("XBASE"); ИмяФайла2 = ФС.НайтиПервыйФайл(ПутьКПапкеСdbfФайлами2+"*.dbf"); Файл2 = СоздатьОбъект("XBASE"); Пока ПустаяСтрока(ИмяФайла) = 0 Цикл Если (ИмяФайла <> "..") И (ИмяФайла <> ".") Тогда Файл.ОткрытьФайл(ПутьКПапкеСdbfФайлами+ИмяФайла,""); сообщить(ИмяФайла); Файл.КодоваяСтраница(1); Файл.Первая(); Пока Файл.ВКонце()=0 Цикл Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл Если (ИмяФайла2 <> "..") И (ИмяФайла2 <> ".") Тогда Файл2.ОткрытьФайл(ПутьКПапкеСdbfФайлами2+ИмяФайла2,""); сообщить(ИмяФайла); Файл2.КодоваяСтраница(1); Файл2.Первая(); Пока Файл2.ВКонце()=0 Цикл ************************ ************************ КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЦикла; КонецЕсли; Файл.ЗакрытьФайл(); ИмяФайла = ФС.НайтиСледующийФайл(); КонецЦикла; КонецПроцедуры
А отладчиком пройтись? Что именно не получилось? По приведенному коду вообще сложно что-то сказать. Могу лишь предположить, что ошибка тут Код: Файл.ЗакрытьФайл(); Т.к. закрываешь файл, который еще не открыл.