VPF::Как можно создать папку программно?

Serebrus

Дата 20.8.2007, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 333
Регистрация: 22.5.2007
Где: Ташкент

Репутация: нет
Всего: нет

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

Rodman

Дата 20.8.2007, 08:30 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Код


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('При создании директории произошла ошибка');

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Serebrus

Дата 20.8.2007, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 333
Регистрация: 22.5.2007
Где: Ташкент

Репутация: нет
Всего: нет

Rodman Спосибо.

Это сообщение отредактировал(а) Serebrus - 20.8.2007, 08:54

Rennigth

Дата 20.8.2007, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

ForceDirectoryes

--------------------

(* Honesta mors turpi vita potior *)

Snowy

Дата 20.8.2007, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

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

)

ForceDirectoryes

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

Rennigth

Дата 20.8.2007, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

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

)

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

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »