Загружаю электронную накладную DBF, но название 12 символов и соответственно ругается
Подскажите народ, есть ли решение данной проблемы?

переименовать?

(1) +1

название меньше еще не предлагали?

(1)+2

сделать 8 символов.
делается так.
1) находишь нужный файл (символов сколько хочешь в имени);
2) копируешь его во временный файл с уникальным именем длиной меньще 9-ти символов;
3) грузишь их этого (п.2) файла данные;
4) удаляешь этот (п.2) временный файл.

Трабла в том, что поставщик присылает 2 фала DBF:
transinvcust.dbf
transinvcustspecs.dbf

В них по 5-6 накладных. Нужно сначало открыть первую, поймать связку и после найденной связки открывать 2-ую и создавать документы.
Переименовав, я не отличу 1 файл от второго. Ибо первые 8 символов у них одинковые.

(6) развеселил. Спасибо.

transinvcust.dbf = trans01.dbf
transinvcustspecs.dbf = trans02.dbf

(7) обращайтесь

(6) ds: отвердение мозга

(9) переименуй в 1.dbf и 2.dbf

(11) Да понял я, спасибо. Просто думал мало-ли, мож нашли какое решение без переименовывания.

ФС.ПереименоватьФайл("transinvcust.dbf", "st.dbf");
ФС.ПереименоватьФайл("transinvcustspecs.dbf", "stspecs.dbf");

(8) а если через "~" писать, как сокращенные имена DOS?

transinvcust.dbf = transi~1.dbf
transinvcustspecs.dbf = transi~2.dbf

есть.
АтрибутыФайла(<ИмяФайла>,<РазмерФайла>,<АтрибутыФайла>,<ВремяСоздания>,<ВремяПоследнегоДоступа>,<ВремяПоследнейЗаписи>,<РасширенноеИмяФайла>)
Назначение:
Возвращает атрибуты файла (в параметрах).
Параметры:
<ИмяФайла> - строка с именем файла;
<РазмерФайла> - переменная, принимающая размер файла в байтах;
<АтрибутыФайла> - переменная, принимающая атрибуты файла;
Возвращаемое строковое значение длиной 9 символов, в котором закодированы атрибуты файла. Символы могут принимать значения ''0'' или ''1'':
первый символ: если ''1'' - файл только для чтения;
второй символ: если ''1'' - скрытый файл;
третий символ: если ''1'' - системный файл;
четвертый символ: если ''1'' - каталог;
пятый символ: если ''1'' - архивный файл;
шестой символ: если ''1'' - обычный файл (все другие атрибуты не установлены);
седьмой символ: если ''1'' - временный файл;
восьмой символ: если ''1'' - файл, сжатый каким-либо архиватором;
девятый символ: если ''1'' - нет доступа к файлу.
<ВремяСоздания> - переменная, принимающая строку с датой и временем создания файла;
<ВремяПоследнегоДоступа> - переменная, принимающая строку с датой и временем последнего доступа к файлу;
<ВремяПоследнейЗаписи> - переменная, принимающая строку с датой и временем последней записи файла;
<РасширенноеИмяФайла> - переменная, принимающая строку с полным именем файла.

Подробнее см. в книгу ''1С:Предприятие 7.7. Описание встроенного языка. Часть 2'', глава 37 ''Работа с Файлами''.

fso=СоздатьОбъект("Scripting.FileSystemObject");
База.ОткрытьФайл(fso.GetFile(ФайлДБФ).ShortPath,,0);//Это исчо лучче...
(с) smaharbA

(16) Чет не работает :(

(17)
начало:
Книга знаний: Пример чтения и записи текстовых файлов (Scripting.FileSystemObject)

продолжение:
http://www.citforum.ru/programming/digest/fsovb6.shtml

Продолжаем тему, почему не перименовывет файл?

ФС.ПереименоватьФайл("transinvcust.dbf", "st.dbf");
ФС.ПереименоватьФайл("transinvcustspecs.dbf", "stspecs.dbf");

Первый раз переименовал, а повторно хоть ты тресни не хочет.
Проходит весь код, но файлы не переименовывет.

Код:

   ДБФ=СоздатьОбъект("XBase");
   ИмяФайла="transinvcust.dbf";
   ИмяПути="D:\Documents and Settings\Рабочий стол\invoice\";
   ПутьДБ=ИмяПути+ИмяФайла;
   Если ФС.СуществуетФайл(ПутьДБ)=1 Тогда
       ФС.ПереименоватьФайл("transinvcust.dbf", "st.dbf",1);
       ФС.ПереименоватьФайл("transinvcustspecs.dbf", "stspecs.dbf",1);
       ИмяФайла="st.dbf";
       ИмяФайла1="stspecs.dbf";    
   КонецЕсли;
   Если СтрДлина(ИмяФайла)>12 Тогда
       Предупреждение("Файлов загрузки не обнаружено!!!");
       Возврат;
   КонецЕсли;
   ПутьДБ="";
   ПутьДБ1="";
   ПутьДБ=ИмяПути+ИмяФайла;
   ПутьДБ1=ИмяПути+ИмяФайла1;
   ДБФ.ОткрытьФайл(ПутьДБ);
   Если ДБФ.Открыта()=1 Тогда
       //Сообщить("Электронная накладная удачно открыта",1);
   Иначе
       Предупреждение("Неудачная попытка открытия электронной накладной !!!");
       Возврат;
   КонецЕсли;


ДБФ.Открыта()=0;
Файлы не перименованы. Ниче не могу понять.

(19): см.(5)

(20) И сразу глупый вопрос, как копировать?
Вроде опять таки ФС.ПерименоватьФайл()?

(21): нет. читай СП.

не мучайтесь
я Вам же в (15) написал

(23): ну, во-первых, ты написал фигню - точнее не фигню, а ответ не на тот вопрос.
а во-вторых, ещё в (5) подробно написано как решить задачу не изменяя исходные файлы (хотя и не разжё языка).

(6) Файлы DBF-V. Грузи драйверы от Фокс-Про последнего и будет тебе счастье.

(14) и чо будет ?

//Открываем соединение
   DBConn = CreateObject("ADODB.Connection");  
   
   DBConn.Open("Provider=vfpoledb;" +
   "Data Source=" + _КаталогФайла + "\Goscontract.dbf;" +
   "Mode=ReadWrite|Share Deny None;"+
          "Collating Sequence=MACHINE;"+
          "Password='';");
   //Делаем выборку
   ФГК = DBConn.Execute("Select * from [Goscontract]");
   
   Пока ФГК.EOF=0 Цикл //Цикл по записям DBF
       
       IDGK    = ФГК.Fields("IDGK").value;
       NGK        = ФГК.Fields("NGK").value;
       DT        = ФГК.Fields("DT").value;
       DT_BEGIN= ФГК.Fields("DT_BEGIN").value;
       DT_END    = ФГК.Fields("DT_END").value;
       TIPLG    = ФГК.Fields("TIPLG").value;
       OWNER    = ФГК.Fields("OWNER").value;
       COMMENT    = ФГК.Fields("COMMENT").value;
       ABR        = ФГК.Fields("ABR").value;
       ............................................
       ФГК.MoveNext(); //Переходим к след. записи DBF
   КонецЦикла;
//    
   DBConn.Close(); //Закрываем соединение

+(27) Внимательно смотри формат даты.


//*******************************************
Процедура Сформировать()
   Путь=КаталогПользователя();
   Имя="Отчет Рынок загородной недвижимости.dbf";
   ЗначениеВФайл(Путь+Имя,"",0);
   //Химия
   Времянка=КаталогВременныхФайлов()+_GetPerformanceCounter()+".txt";
   КомандаСистемы("for %i in ("""+Путь+Имя+""") do echo %~si > "+Времянка);
   Текст=СоздатьОбъект("Текст");
   Текст.Открыть(Времянка);
   Сообщить(Текст.ПолучитьСтроку(1));
   ФС.УдалитьФайл(Времянка);
КонецПроцедуры


(29) А напрямую из dbf слабо?

(19) Предварительно удаляй те файлы, в которые переименовываешь.

(30) а что в (29) разве иначе ?

В методе ПереименоватьФайл() либо нужно указывать полные имена файлов, либо применить сначала УстТекКаталог()

Решение в данном случае одно, переименовать файл, связано это только ограничение на длину имени, пришедшую с далеких времен.

(34) -> (27)

(34) а можно поинтересоваться какое такое ограничение ?