Как создать все поддиректории за один проход

Пример использует информационное поле (label) и кнопку на форме. Когда пользователь кликает по кнопке, то все поддиректории, содержащиеся в пути создаются (если они ещё не созданы). Результат записывается в текстовое поле:

uses
 FileCtrl;

procedure
 TForm1.Button1Click(Sender: TObject);
var

  Dir: string
;
begin

  Dir := 'C:APPSSALESLOCAL';
  ForceDirectories(Dir);
  if
 DirectoryExists(Dir) then

    Label1.Caption := Dir + ' was created'
end
;

Другое по теме:

• Удаление каталога со всем содержимым
• Копирование файлов вместе с каталогами
• Определение размера каталога