Скачать: CL | DM;

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

← →
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);
>
> А это зачем?

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

---

← →
DrPass ©   (2007-04-13 12:05) [7]

> А это зачем?

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.973 c