Verzeichnis anlegen +1 ?

[DXO]

Nabend @all
Also bin grad dabei mir ein kleines Backup tool zu schnitzen
leider hab ich schon 2 Jahre nix mehr unter Delphi gemacht
Prog ist fertig aber es fehlt nur noch eine Routine

Delphi-Quellcode:

if not DirectoryExists(S+'\'+DateToStr(Date)) then MkDir(DateToStr(Date))
else ????

Jetzt brauchte ich aber eine Routine die mir ein Verzeichnis +1 anlegt wennn das aktuelle datum schon vorhanden ist
und immer soweiter wenn +1 Vorhanden dann +2

Bitte um Hilfe & Danke schonmal im vorraus

[edit=SirThornberry]Titel geändert - Hilfe braucht hier so ziemlich jeder Mfg, SirThornberry[/edit]

[mkinzler]

Dann soll das datum vom Folgetag erzeugt werden? Wäre irgendwie komisch

[DXO]

Nein es soll entweder nur eine 1 Hinten oder vorn drangehangen werden
möglich ist auch 01-Datum <- (wenn vorhanden) 02-Datum

Edit: hmm Da wirft sich dann auch gleich die zweite Frage auf wie ich Rausbekommen welches Verzeichnis dann angelegt wurt

[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;

[DXO]

Versucht aber nix
muss das so aufgefufen werden ?

vllt liegts ja an meinem aufruf

Delphi-Quellcode:

 if not DirectoryExists(S+'\'+DateToStr(Date))
        then  DirectoryCreate(S+'\'+DateToStr(Date)) ;

[mkinzler]

Kleine Korrektur:

Delphi-Quellcode:

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

Aufruf
DirectoryCreate( DateToStr( date));

[DXO]

Besten Dank ... Sollte wohl mal wieder öfter mit Delphi basteln

[mkinzler]

Zitat:

hmm Da wirft sich dann auch gleich die zweite Frage auf wie ich Rausbekommen welches Verzeichnis dann angelegt wurt

Paramter Path als var deklarieren

[DXO]

Zitat von mkinzler:

Zitat:

hmm Da wirft sich dann auch gleich die zweite Frage auf wie ich Rausbekommen welches Verzeichnis dann angelegt wurt

Paramter Path als var deklarieren

???