delphi - 如何在 Delphi 中递归创建文件夹？

Question

在创建函数时需要一些帮助，该函数可以通过给出路径递归地创建文件夹：

C:\TestFolder\Another\AndAnother

Delphi 函数 MkDir 返回 IOerror = 3。

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

Answer 1

利用

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

（这是一个标准的 RTL 函数，可以在 SysUtils.pas 中找到。因此您不需要创建自己的函数，即使这并不困难。）

Answer 2

这使用新的 IOUtils 而不是 SysUtils。
IOUtils 是跨平台兼容和 UNC 感知的（但在一些地方也有问题）。

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