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

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

Простите это что такое:<br>> Пока ПустаяСтрока(ИмяФайла) = 0 Цикл<br>....<br><br>> Пока ПустаяСтрока(ИмяФайла2) = 0 Цикл<br>...<br> <br>Вы в цикле отрываете файлы? И это в вашем понимании 2 файла?<br>Еще вопрос - а если структуры файлов отличаются?<br> <br>Вы попробуйте сначала реально на 2-х файлах, так хоть понятно будет, что не так и где не так.<br>Если вы таким способом копируете базу, то есть еще вопрос об открытых файлах.<br>В общем - из одного файла перекинуть информацию в другой файл можно.

может лучше придумать дбфками внятные имена и открывать их уже через сгенерированное имя?