VPF::создать папку в Windows - Форум программистов

mvdr

Дата 14.1.2005, 19:27 (ссылка)

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

Загрузка ...

физик

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

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

мне надо сохранить файл в папку, которой может и не быть на диске. Как динамически создать эту папку?

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

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

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

Alex

Дата 14.1.2005, 19:40 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


function CheckDir(Dir: string): Boolean;
// Если дириктория не существует, то она создается
begin
  Result := True;
  if Length(Dir) = 0 then begin
    Result:= False;
    Exit;
  end;
  Dir := ExcludeTrailingPathDelimiter(Dir);
// 24.01.04
  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;

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

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

mvdr

Дата 14.1.2005, 19:48 (ссылка)

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

Загрузка ...

физик

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

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

я конечно не дурак, но что то недопонимаю.
Допустим мне надо создать C:\\Program Files\papka\ и туда запихивать уже файлы.
КАК?

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

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

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

p0s0l

Дата 14.1.2005, 22:10 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Еще можно использовать ForceDirectories
ForceDirectories ('C:\Program Files\papka');

Функцию Alex'а можно использовать точно также...

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

С уважением, г-н Посол.

Alex

Дата 14.1.2005, 22:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

По идеи можно и ForceDirectories, но я в свое время наткнулся на одну проблему. Дело в том, что у меня в программе путь, который может подаваться на вход этой функции может содержать только диск при этом такого диска может не существовать в системе и если такой путь подать на вход ForceDirectories то она вернет истину, то есть она якобы создала этот путь. Такое поведение для меня недопустимо. Поэтому и переписывал ее.

Для воспроизведения ошибки выполните код:

Код


  if ForceDirectories('p:\') then
    ShowMessage('Ok')
  else
    ShowMessage('Not');

  if CheckDir('p:\') then
    ShowMessage('Ok')
  else
    ShowMessage('Not');

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

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

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