Создать каталог |
ОГЛАВЛЕНИЕ    HOME  MAIL |
Для создания каталога удобно использовать функцию ForceDirectories. Она создает путь, переданный ей в качестве параметра. ForceDirectories создает все существующие каталоги, указанные в пути.uses FileCtrl; procedure TForm1.Button1Click(Sender: TObject); begin if DirectoryExists(Edit1.Text) then begin ShowMessage('Directory ' + Edit1.Text + ' exists'); Exit; end; ForceDirectories(Edit1.Text); end; email: delphi4all@narod.ru |