Показать сообщение отдельно
  #9  
Старый 23.11.2013, 15:59
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от oleg_c#
SysErrorMessage говорит что не удается найти указанный путь
Значит так и есть.
Проверяй примерно так:
Код:
var
  FileName1, FileName2: String;
begin
  FileName1 := templatepath + cbTemplate.Items[cbTemplate.ItemIndex];
  if not FileExists(FileName1) then
    raise Exception.CreateFmt('Не найден файл "%s"', [FileName1]);

  FileName2 := frmMain.sdReport.FileName;
  if not DirectoryExists(ExtractFileDir(FileName2)) then
    raise Exception.CreateFmt('Не найден каталог "%s"', [ExtractFileDir(FileName2)]);

  if not CopyFile(Pointer(FileName1), Pointer(FileName2), True) then RaiseLastOSError;
end;
Ответить с цитированием