Как открыть два dbf файла?

Новая тема
"Добрый день, попытался открыть два 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 Цикл

************************
************************
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Файл.ЗакрытьФайл();
ИмяФайла = ФС.НайтиСледующийФайл();
КонецЦикла;

КонецПроцедуры"
Простите это что такое:
> Пока ПустаяСтрока(ИмяФайла) = 0 Цикл
....

> Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл
...

Вы в цикле отрываете файлы? И это в вашем понимании 2 файла?
Еще вопрос - а если структуры файлов отличаются?

Вы попробуйте сначала реально на 2-х файлах, так хоть понятно будет, что не так и где не так.
Если вы таким способом копируете базу, то есть еще вопрос об открытых файлах.
В общем - из одного файла перекинуть информацию в другой файл можно.
может лучше придумать дбфками внятные имена и открывать их уже через сгенерированное имя?
Читают тему
(гостей: 1)

Быстрый переход