Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как создать каталог ? [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Dmitry V. Averuanov © (2002-04-02 15:01:00)
- как создать каталог (в общем случае - структуру типа c:\new\current\)
Важно, чтобы все работало не взирая на версию виндовс

Александр В. Суханов (2002-05-07 12:10:00) [1]
FunctionChekPath(S : String) : Boolean;
VarS1, S2 : String;
B : Boolean;
Begin
S2 := S;
B := True;
WhilePos("\",S2) <> 0 Do Begin
S1 := Copy(S,0,Pos("\",S2));
S2[Pos("\",S2)] := """;
If NotDirectoryExists(S1)
Then If NotCreateDir(S1) ThenB := False;
End;
ChekPath := B;
End;

Александр В. Суханов (2002-05-07 12:10:00) [2]
FunctionChekPath(S : String) : Boolean;
VarS1, S2 : String;
B : Boolean;
Begin
S2 := S;
B := True;
WhilePos("\",S2) <> 0 Do Begin
S1 := Copy(S,0,Pos("\",S2));
S2[Pos("\",S2)] := """;
If NotDirectoryExists(S1)
Then If NotCreateDir(S1) ThenB := False;
End;
ChekPath := B;
End;

Anatoly Podgoretsky (2002-04-04 13:24:00) [3]
Другое дело, значит можешь посмотреть исходники

Dmitry V. Averuanov (2002-04-04 13:01:00) [4]
Дико извиняюсь - функция называется
ForceDirectories

gek (2002-04-04 12:15:00) [5]
CreateDirectories и у меня нет
Наверное имелась ввиду API CreateDirectory

Anatoly Podgoretsky (2002-04-04 12:11:00) [6]
ATLANTIDO © (02.04.02 19:17)
Странно, может не она виновата?

Dmitry V. Averuanov © (04.04.02 11:51)
Где обхявлена CreateDirectories, у меня нет Д6

Dmitry V. Averuanov (2002-04-04 11:51:00) [7]
- Спасибо всем ответившим, с CreateDirectories все получилось !
- Маленький ньюанс - неплохо бы в случае неудачи сделать вывод о ее причине- отсюда и вырос вопрос, как определить, что неудача в результате нехватки прав доступа ?

Anatoly Podgoretsky (2002-04-02 19:31:00) [8]
Dmitry V. Averuanov © (02.04.02 16:26)
А какая разница из за чего обломс, все равно обломс.
Можно использовать CreateDirectory и анализировать ошибку

ATLANTIDO (2002-04-02 19:17:00) [9]
MkDir глючная до ужаса

Dmitry V. Averuanov (2002-04-02 16:26:00) [10]
- А "обломс" можно однозначно зарегистрировать как "обломс в результате нехватки прав", или только просто "обломс" - то бишь не удалось создать ?

Anatoly Podgoretsky (2002-04-02 16:17:00) [11]
Не взирая на версию, только в том случае, если ты располагаешь достаточными правами, иначе обломс.
ForceDirectory удобнее

SerVS - S (2002-04-02 15:41:00) [12]
MkDir требует чтобы были созданы все предыдущие директории, а
ForceDirectory(APath:string) нет.

MBo (2002-04-02 15:40:00) [13]
ForceDirectories , если c:\new\current и new тоже нет

gek (2002-04-02 15:13:00) [14]
MkDir(s:string)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »