Hi,
If you give DailyRotateFileDateFormat and set the DailyRotate = True the function of CompressLogFile thows an exception.
Because GetLogFileBackup parameter is True therefor GetLogFileBackup function returns empty result. (There is no zip file yet in the directory)
zip.Open(GetLogFileBackup(1,True),zmWrite);
Can you please check this line of the code?
etc: i have changed the code like this.
zipfile := GetLogFileBackup(1, False);
if zipfile.IsEmpty then Exit else zipfile := zipfile + '.zip';
Zip.Open(zipfile, zmWrite);
Hi, If you give DailyRotateFileDateFormat and set the DailyRotate = True the function of CompressLogFile thows an exception. Because GetLogFileBackup parameter is True therefor GetLogFileBackup function returns empty result. (There is no zip file yet in the directory) zip.Open(GetLogFileBackup(1,True),zmWrite);
Can you please check this line of the code?
etc: i have changed the code like this. zipfile := GetLogFileBackup(1, False); if zipfile.IsEmpty then Exit else zipfile := zipfile + '.zip'; Zip.Open(zipfile, zmWrite);
Thank you.