VPF::Как создать директорию... - Форум программистов

Rennigth

Дата 15.7.2005, 09:19 (ссылка)

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

Загрузка ...

Эксперт

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

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

юзай ForceDirectories

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

(* Honesta mors turpi vita potior *)

RaIDeR

Дата 15.7.2005, 09:30 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

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

Чуточку подправил smile

Код


function ChkDir(DirName: String) : String; // Ф-ия вернёт имя не существующеё папки
var
  I: Integer;
  NewDir: String;
begin

  Result := '';

  NewDir := DirName;

  for I := 0 to 1000 do
    if DirectoryExists(NewDir) then
      NewDir := DirName  + '(' + IntToStr(I) + ')'
    else begin
      Result := NewDir;
      Break;
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateDirectory(PChar(ChkDir(DirectoryListBox1.Directory + '\MyCoolDir')), nil);  // Использование
end;

p.s
Не проверял

Это сообщение отредактировал(а) RaIDeR - 15.7.2005, 09:50

mvdr

Дата 15.7.2005, 09:31 (ссылка)

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

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

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

Код


function CheckDir(Dir: string): Boolean;
begin
 Result := True;
 if Length(Dir) = 0 then begin
   Result:= False;
   Exit;
 end;
 Dir := ExcludeTrailingPathDelimiter(Dir);
 if (Length(Dir) < 3) and not DirectoryExists(Dir) then begin
   Result:= False;
   Exit;
 end;
 if (Length(Dir) < 3) or DirectoryExists(Dir)
     or (ExtractFilePath(Dir) = Dir) then
   Exit;
 Result := CheckDir(ExtractFilePath(Dir)) and CreateDir(Dir) and DirectoryExists(Dir);
end;

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
 checkDir('C:\Program Files\Papka\');
 checkDir('C:\Program Files\Papka\SubPapka');
end;

Добавлено @ 09:32
Когда то давал Alex

Это сообщение отредактировал(а) Femida - 15.7.2005, 09:31

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Alex

Дата 15.7.2005, 12:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Цитата(Alex @ 15.7.2005, 09:58)

http://vingrad.ru/DELPHI-DLP-002500

Ведь дал ссылку где все давно уже объяснено smile

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Bangladesh

Дата 17.7.2005, 09:22 (ссылка)

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

Загрузка ...

AsBest

Профиль
Группа: Завсегдатай
Сообщений: 1089
Регистрация: 4.9.2004
Где: Калининград

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

Цитата(Alex @ 15.7.2005, 11:31)

Цитата(Alex @ 15.7.2005, 09:58)

http://vingrad.ru/DELPHI-DLP-002500

Ведь дал ссылку где все давно уже объяснено smile

так я ведь её смотрел, но не много там понял...

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

ок

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