mod atelerix plugin "log" speicherproblem in multiblen files

[Dragon]

Ich habe das eine Beispiel von dem "astelerix" IRC bot modifiziert, genauer gesagt das logger plugin.
Doch beim speichern habe ich ein problem.
wiso geht das

Code: Alles auswählen

procedure LogAdd(s: String; AChannel : PChar);
var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('./' + AChannel + '-' + Datetostr(now));
  except
 
  end;
 
    try
    sl.Add('<'+TimeToStr(now)+'> '+s);
    sl.SaveToFile('./' + AChannel + '-' + Datetostr(now));
    finally
  sl.Free;
    end;
  end;   

aber das nicht. Es stürtzt mit "An unhandled exception occurred at [......] EInOutError: Access denied" ab, bei mehr als einem Channel.

Code: Alles auswählen

procedure LogAdd(s: String; AChannel : PChar);
var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('./' + 'logs/' + AChannel + '/' + Datetostr(now));
  except
    mkdir('./logs');
    mkdir('./logs/' + AChannel);
  end;
 
    try
    sl.Add('<'+TimeToStr(now)+'> '+s);
    sl.SaveToFile('./' + 'logs/' + AChannel + '/' + Datetostr(now));
    finally
  sl.Free;
    end;
  end;  

(keines der beiden codes sind das original sind beide modifizierte)

[Michl]

Was ist, wenn ein Ordner schon existiert? Daher z.B. so:

Code: Alles auswählen

  except
    begin
      if not DirectoryExists('./logs') then mkdir('./logs');
      if not DirectoryExists('./logs/' + AChannel) then mkdir('./logs/' + AChannel);
    end;
  end;

[Dragon]

Ich hab mal getestet was du vorgeschlagen hast Michl. Es funktioniert, danke für die hilfe.