Verzeichnis anlegen +1 ?

[mkinzler]

Versuch mal

Delphi-Quellcode:

function DirectoryCreate( Path: string): boolean;
var
    p, w, e: Integer;
    s: string;
begin
    if not DirectoryExists( Path) then
    begin
        MkDir(Path);
        result := True;
    end
    else
    begin
        p := Pos(  Path, '-');
        s :=  Copy( Path, p+1, Length( Path) - p);
        Val(s , w, e);
        if p > 0 then Path := Copy(Path, 1, p-1);
        Result := DirectoryCreate( Path +'-'+IntToStr(w));
    end;
end;