如何在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中找到.因此,您不需要创建自己的函数,即使这并不困难.)