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

Question

需要创建可递归创建文件夹以给予路径功能有所帮助：

C:\TestFolder\Another\AndAnother 

德尔福功能的mkdir返回的ioerror = 3

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

Answer 1

使用

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

（这是一个标准的RTL函数，可以在SysUtils.pas中找到，因此你不需要创建你自己的函数，尽管这不会很困难。）