Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как можно создать папку программно?

Автор: Serebrus 20.8.2007, 08:21

Подскажите пожалуйста, как можно создать папку (каталог) программно?
Буду рад за код.
Спосибо.

Автор: Rodman 20.8.2007, 08:30

Код


function CreateDir(const Dir: string): Boolean;

исходник

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
if createdir('c:\TestDir') = true then
  showmessage('Директория успешно создана')
else
  showmessage('При создании директории произошла ошибка');
end;

Добавлено через 4 минуты и 8 секунд
создать одновременно 2 папки не удастся, создавай отдельно... типа

Код


if createdir('c:\TestDir') = true then
  if createdir('c:\TestDir\New') = true then
    showmessage('Директория успешно создана')
  else
    showmessage('При создании директории произошла ошибка');

Автор: Serebrus 20.8.2007, 08:46

Rodman Спосибо.

Автор: Rennigth 20.8.2007, 09:23

ForceDirectoryes

Автор: Snowy 20.8.2007, 10:16

Цитата(Rennigth @ 20.8.2007, 09:23

)

ForceDirectoryes

По правилам английского языка, во множественном числе пишется i, а не y.
Directory - Directories

Автор: Rennigth 20.8.2007, 10:34

Цитата(Snowy @ 20.8.2007, 10:16

)

По правилам английского языка, во множественном числе пишется i, а не y.
Directory - Directories