delphi - Delphiでフォルダを再帰的に作成するにはどうすればよいですか？

Question

パスを指定してフォルダーを再帰的に作成できる関数を作成するには、いくつかの助けが必要です。

C:\TestFolder\Another\AndAnother

IOerror=3を返すDelphi関数MkDir。

MkDir('C:\TestFolder\Another\AndAnother');

Answer 1

使用する

ForceDirectories('C:\TestFolder\Another\AndAnother');

（これは、SysUtils.pasにある標準のRTL関数です。したがって、難しいことではありませんが、独自の関数を作成する必要はありません。）

Answer 2

これは、SysUtilsの代わりに新しいIOUtilsを使用します。
IOUtilsは、クロスプラットフォーム互換でUNC対応です（ただし、いくつかの場所でバグがあります）。

function ForceDirectories(FullPath: string): Boolean;   // Works with UNC paths
begin
  TDirectory.CreateDirectory(FullPath);
  Result:= DirectoryExists(FullPath);
end;