How can I Create folders recursively in Delphi?

Question

Need some help in creating function which can create folders recursively with giving path:

C:\\TestFolder\\Another\\AndAnother

Delphi function

Answer 1

This uses the new IOUtils instead of SysUtils.
IOUtils is cross-platform compatible and UNC aware (but is also buggy in a few places).

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