Столкнулся с такой проблемой:
Когда идёт код проги, выполняющийся последовательно, и в этом коде идёт:

Код

... создание папки; копирование файла в эту папку; ...

если использовать MkDir() то это лажа получается... она не создаёт папки с путём типа - "c:\111\222\333\444\555\". Нужно сначало 111 создать, потом в ней 222, потом в 111\222\ создать 333 и т.д.
Но + её в том что она быстро это делает и при дальнеёшем копировании папка уже доступна!
это неподходит...
есть ещё 2 функции, которые я не понимаю чем различаются (только вызовом???) - CreateDirectory(handle, 'c:\111\222\333\444\555', Flag);
и CreateDir('c:\111\222\333\444\555'); Ими можно создавать папки с каким угодно большим путём... вот только 2 минуса: они обе задают глупый вопрос типа - "Папки нет... Создать?". и 2й минус - если идёт код типа

Код

... создание папки; копирование файла в эту папку; ...

то при "копирование файла в эту папку;" папка ещё не существует... и в итоге выдаётся исключение или ошибка!

Собственно сабж:
Как в коде типа:

Код

... создание папки; копирование файла в эту папку; ...

создать папку с каким либо угодно по длинне путём ('c:\111\222\333\444\555'), так, чобы не задавался вопрос "Папки нет... Создать?" и эта папка сразу была доступна для копирования туда файлов???

К примеру:

1:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  ForceDirectories('e:\10\12\20\30'); end;

2:

Код

procedure TForm1.Button2Click(Sender: TObject); procedure ForceDir(const path:string); begin  if (trim(path)='')or(path[Length(path)]=':') then exit;  if path[Length(path)]<>'\' then ForceDir(extractFilePath(path)) else ForceDir(extractFilePath(copy(path,1,Length(Path)-1)));  CreateDirectory(PChar(path),nil); end; begin  ForceDir('e:\10\12\20\30\'); end;

Girder поясни что есть что если не влом! а то мне мало что сказало тобой написанное!

1 и 2 - это оба примера. т.е. можно хоть так хоть так?

Girder

Код

if (trim(path)=' ')or(path[Length(path)]=':') then exit;

это - если путь пустой или в конце ":" (типа с, то выходим! так?

Код

if path[Length(path)]<>'\' then ForceDir(extractFilePath(path)) else ForceDir(extractFilePath(copy(path,1,Length(Path)-1)));

а это что? и как тут что вставлять???

Код

CreateDirectory(PChar(path),nil);

этим создаём директорию. nil - не выводить сообщение (вопрос типа создавать). да?

Код

ForceDir('e:\10\12\20\30\');

и этим создаём директорию??? или как?

Енто два разных примера. И тот и другой создаст(если сможет конечно) тебе много вложенных папок за раз и ни чего не будет тебя спрашивать.

Цитата(h2o @ 19.10.2005, 15:48)

этим создаём директорию. nil - не выводить сообщение (вопрос типа создавать). да?

нет

Цитата(h2o @ 19.10.2005, 15:48)

а это что? и как тут что вставлять???

Получаем следующею наименование папки... точнее полный путь с название

Цитата(h2o @ 19.10.2005, 15:48)

это - если путь пустой или в конце ":" (типа с, то выходим! так?

Типо того...

PS: Ты их запустил бы... что ли...

Это сообщение отредактировал(а) Girder - 19.10.2005, 15:07

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