Title: Create a whole path at once
Question:
Answer:
This example uses a label and a button on a form. When the user clicks
the button, all the directories along the specified path that don't exist
are created. The results are reported in the caption of the label:
uses
FileCtrl;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\APPS\SALES\LOCAL';
ForceDirectories(Dir);
if DirectoryExists(Dir) then
Label1.Caption := Dir + ' was created'
end;