wenn ordner nicht existiert -> ordner Erstellen

[alleinherrscher]

forcedirectories(Pfad:String); Beispiel:

Delphi-Quellcode:

var sDir : string;

sDir := 'c:\apps\code\free';;

//if sDir path does not exist, create it!
if NOT DirectoryExists(sDir) then
  ForceDirectories(sDir);

//edit: Beispiel entnommen aus: About.com Delphi Programming