Трехуровневка ... временные локальные файлы

[masygreen]

День добрый!
Не пойму где надо докрутить ....подскажите
Трабл:
Есть отчет который при работе создает текстовые файлы на диске С (c:\a1.txt)... формируются там макросы для excel.
Галактика 8.1 двухуровневая все работает отлично проблем нет...
Пробовал на трех уровневке файлы не найдены .. и не создаются .. я так понимаю что Галактика просто не знает где диск С или еще чего подобное???
Где искать подскажите!
Заранее спасибо

[Ged]

Если не ошибаюсь надо вызвать
PutFileToClient('c:\a1.txt', false);
и только потом пытаться его загрузить в Excel

[masygreen]

Леонид Поликутин спасибо буду смотреть ... а еще есть ограничения на отчеты из за трехзвенки???

[masygreen]

Чего то не помогла такая конструкция

Код: Выделить всё

 FBasName:='c:\SetAlbFormat.bas';
  PutFileToClient(FBasName, false); 

  DeleteFile(FBasName);
  LogStrToFile(FBasName, 'Sub SetAlbFormat ()');
  LogStrToFile(FBasName,'With ActiveSheet.PageSetup');
  LogStrToFile(FBasName,    '    .PrintTitleRows = ""'    );
  LogStrToFile(FBasName,    '    .PrintTitleColumns = ""'   );
  LogStrToFile(FBasName,    'End With');
  LogStrToFile(FBasName, 'End Sub');
  xlImportModule(FBasName);
  xlRunMacro(' SetAlbFormat ');
  DeleteFile(FBasName);

[Ged]

Код: Выделить всё

  LogStrToFile(FBasName, 'Sub SetAlbFormat ()'); 
  LogStrToFile(FBasName,'With ActiveSheet.PageSetup'); 
  LogStrToFile(FBasName,    '    .PrintTitleRows = ""'    ); 
  LogStrToFile(FBasName,    '    .PrintTitleColumns = ""'   ); 
  LogStrToFile(FBasName,    'End With'); 
  LogStrToFile(FBasName, 'End Sub');

PutFileToClient(FBasName, false);
xlImportModule(FBasName); 

[masygreen]

... наверно я что то с путями путаю ...

FBasName:='SetAlbFormat.bas';
DeleteFile(FBasName);
LogStrToFile(FBasName, 'Sub SetAlbFormat ()');
LogStrToFile(FBasName, 'End Sub');
PutFileToClient(FBasName, false);
xlImportModule(FBasName);
xlRunMacro(' SetAlbFormat ');
DeleteFile(FBasName);

FBasName:='c:\SetAlbFormat.bas';
DeleteFile(FBasName);
LogStrToFile(FBasName, 'Sub SetAlbFormat ()');
LogStrToFile(FBasName, 'End Sub');
PutFileToClient(FBasName, false);
xlImportModule(FBasName);
xlRunMacro(' SetAlbFormat ');
DeleteFile(FBasName);

Не работает .. ... что еще может быть не так??????????