Mega Code Archive

 

Categories / Delphi / Files

 

Create a whole path at once

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;