如何在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。

err