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]