Как создать папку?

← →
allucard (2007-04-13 08:59) [0]

Доброго времени суток.

Подскажите как создать папку в Delphi?

спасибо.

← →
Сергей М. © (2007-04-13 09:02) [1]

см. CreateDir, CreateDirectory[Ex], ForceDirectories

← →
allucard (2007-04-13 09:19) [2]

> Сергей М. © (13.04.07 09:02) [1]

Ок.

Как сделать чтоб в случае отсутствия папки не возникало остановки программы и вывода сообщения об ошибке, а просто создалась папка?
Этот код вроде работает, но вылазит ошибка.
Как проверить наличие директории?

procedure TForm2.FormDestroy(Sender: TObject);
begin
try
ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+"data\users.dat");
except
begin
try
Createdir(ExtractFilePath(ParamStr(0))+"data\");
FormDestroy(Sender);
except
showmessage("Невозможно создать папку data!");
end
end
end
end;

Спасиб.

← →
{RASkov} (2007-04-13 09:20) [3]

DirectoryExists

← →
Сергей М. © (2007-04-13 09:20) [4]

> allucard (13.04.07 09:19) [2]
>
>

см. ForceDirectories

← →
{RASkov} (2007-04-13 09:22) [5]

> FormDestroy(Sender);

А это зачем?

← →
{RASkov} (2007-04-13 09:24) [6]

> > FormDestroy(Sender);
>
> А это зачем?

А-а-а-а.... понял :) ужос.:(

> А это зачем?

Типа контрольный выстрел в голову

Как создать папку? Найти похожие ветки