Дмитрий, а не подскажите почему данная конструкция в скрипте не работает корректно?
sFile := Form1.frxRTFExport1.FileName;
//Form1.frxRTFExport1.FileName:=ChangeFileExt(sUser+' '+FormatDateTime('YYYY-MM-DD.', frmEmployee.dtDateOfBirth.Date), '.rtf');
sDest := 'R:\_Отчеты_V1\'+FormatDateTime('YYYY', now)+'\'+FormatDateTime('MM-MMMM', now)+'\'+sUser+'\';
if ForceDirectories(sDest) then
begin
if FileExists(sFile) then
// begin
if MessageDlg('Перезаписать файл?', mtInformation, mbYes+mbNo, 0) = mrYes then begin
CopyFile(sFile, sDest+sUser+' '+FormatDateTime('YYYY-MM-DD.', Form1.Date_report.Date)+'rtf') ;
ShowMessage('Файл отчета сохранен по адресу:'#13'FreeShare/_Отчеты_V1/'+FormatDateTime('YYYY', now)+'/'+FormatDateTime('MM-MMMM', now)+'/'+sUser+'/'+#13+'Под именем:'+' '+sUser+' '+FormatDateTime('YYYY-MM-DD.', Form1.Date_report.Date)+'rtf' ) ;
OpenFile(sDest+sUser+' '+FormatDateTime('YYYY-MM-DD.', Form1.Date_report.Date)+'rtf');
end;
end;
DeleteFile(sFile);
end;
Т.е задумка-если файл с таким именем есть-спросить перезаписать или нет,если да, то заменить этот файл, если нет, то никаких действий.
Если файла с таким именем нет - сохранить его.