Unterverzeichnisse erstellen

[zeras]

Ich habe 3 verschiedene Funktionen getestet und bei allen das gleiche

Delphi-Quellcode:

function MkDirEx(bez: string): boolean;
var verz : string;

begin

//  Result := ForceDirectories(bez); //Test1 180517

//  TDirectory.CreateDirectory(bez); //Test2 180517


//Original
  if copy(bez, length(bez), 1) <> '\' then bez := bez + '\';
  result := False;
  verz := copy(bez, 1, 2);
  delete(bez, 1, 3);
  while length(bez) > 0 do begin
    verz := verz + '\' + copy(bez, 1, pos('\', bez) -1);
    delete(bez, 1, pos('\', bez));
    {$i-}
      mkdir(verz);
    {$i+}
    case IOresult of
         0,
         183 : begin end;
         else exit
    end;
  end;
  result := True;


End;

alle 3 gehen nicht.