fixing LogFileProvider not starting

Author: pjrobin

Quick.Logger.Provider.Files.pas

@@ -341,7 +341,11 @@ function TLogFileProvider.GetLogFileBackup(cNumBackup: Integer; zipped: Boolean)
   // Doing this twice to be backward compatible independent if the numbackup is formatted or not
   for i := 0 to 1 do
   begin
-    Result := CalcRotateLogFileName (cNumBackup, '*', zipped, i = 0);
+    if DailyRotate then
+      Result := CalcRotateLogFileName (cNumBackup, '*', zipped, i = 0)
+    else
+      Result := CalcRotateLogFileName (cNumBackup, '', zipped, i = 0);
+
     if findfirst (Result, faAnyFile, SearchRec) = 0 then
       Result := TPath.GetDirectoryName (Result) + PathDelim + SearchRec.Name
     else