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