Delphi Tipps, Tricks & Quelltexte

Unterverzeichnisse anlegen

Erklärung
Mit dieser Funktion kann man ein Verzeichnis mit Unterverzeichnissen anlegen (Dies ist bei MkDir nicht möglich). Einfach in das eigene Programm kopieren.

Quelltext

function TSControl.MkDirs(Pfad: string): boolean;
var verz : string;
begin
if copy(Pfad,length(Pfad),1) <> '\' then Pfad := Pfad + '\';
result := False;
verz := copy(Pfad,1,2);
delete(Pfad,1,3);
while length(Pfad) > 0 do begin
    verz := verz + '\' + copy(Pfad,1,pos('\',Pfad)-1);
    delete(Pfad,1,pos('\',Pfad));
    {$i-}
      mkdir(verz);
    {$i+}
    case IOresult of
         0,
         183 : begin end;
         else exit
    end;
end;
result := True;
end;