/*
ForceDirectories example
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:
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Dir = "C:\Apps\Sales\Local";
  if (ForceDirectories(Dir))
    Label1->Caption = Dir + " was created";
} 
