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

需要一些帮助来创建可以使用给定路径递归创建文件夹的函数：

C:\TestFolder\Another\AndAnother

Delphi函数MkDir返回IOerror=3

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

使用

---

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

这使用新的IOUtils而不是SysUtils。
IOUtils是跨平台兼容的，并且支持UNC（但在一些地方也有缺陷）

---

编写自己的

ForceDirectories

并在计算机上运行：简单。编写一个在野外工作的处理所有边缘情况的程序：hard确切地说，所有边缘情况都让它变得很难。这是UNC不知道的，这就是为什么我推荐新的IOUtils库。

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

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