Unique file name for compressed files

[Tim Sargent]

I have made this simple change and it may be useful for others. I am sending in my exception log files with other settings files as a compressed file by FTP. But the default behavior is an unchangeable file name so only one can be saved. By solution is in the ExceptionLog.pas file:

function TmpTGZFileName: string;
begin
// Result := TempPath + 'CompressFiles.tgz';
Result := TempPath + ExtractFileName(ChangeFileExt(CurrentOptions.Outpu tFile(ParamStr(0)), '.tgz'));
end;

[admin]

Hi,

Tim Sargent wrote:
> I have made this simple change and it may be useful for others. I am
> sending in my exception log files with other settings files as a
> compressed file by FTP. But the default behavior is an unchangeable
> file name so only one can be saved. By solution is in the
> ExceptionLog.pas file:
>
>
> Code:
> --------------------
> function TmpTGZFileName: string;
> begin
> // Result := TempPath + 'CompressFiles.tgz';
> Result := TempPath + ExtractFileName(ChangeFileExt(CurrentOptions.Outpu tFile(ParamStr(0)), '.tgz'));
> end;
>
> --------------------

I'm working on, thank you for the good suggestion! :-)

--
Best regards...

Fabio Dell'Aria.
----------------
http://www.eurekalog.com
Catch every BUG, every time!