Форум: "Система";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Вниз

Как создать каталог ?   Найти похожие ветки 

← →
Dmitry V. Averuanov   (2002-04-02 15:01) [0]

- как создать каталог (в общем случае - структуру типа c:\new\current\)
Важно, чтобы все работало не взирая на версию виндовс

---

← →
gek   (2002-04-02 15:13) [1]

MkDir(s:string)

---

← →
MBo   (2002-04-02 15:40) [2]

ForceDirectories , если c:\new\current и new тоже нет

---

← →
SerVS - S   (2002-04-02 15:41) [3]

MkDir требует чтобы были созданы все предыдущие директории, а
ForceDirectory(APath:string) нет.

---

← →
Anatoly Podgoretsky   (2002-04-02 16:17) [4]

Не взирая на версию, только в том случае, если ты располагаешь достаточными правами, иначе обломс.
ForceDirectory удобнее

---

← →
Dmitry V. Averuanov   (2002-04-02 16:26) [5]

- А "обломс" можно однозначно зарегистрировать как "обломс в результате нехватки прав", или только просто "обломс" - то бишь не удалось создать ?

---

← →
ATLANTIDO   (2002-04-02 19:17) [6]

MkDir глючная до ужаса

---

← →
Anatoly Podgoretsky   (2002-04-02 19:31) [7]

Dmitry V. Averuanov © (02.04.02 16:26)
А какая разница из за чего обломс, все равно обломс.
Можно использовать CreateDirectory и анализировать ошибку

---

← →
Dmitry V. Averuanov   (2002-04-04 11:51) [8]

- Спасибо всем ответившим, с CreateDirectories все получилось !
- Маленький ньюанс - неплохо бы в случае неудачи сделать вывод о ее причине- отсюда и вырос вопрос, как определить, что неудача в результате нехватки прав доступа ?

---

← →
Anatoly Podgoretsky   (2002-04-04 12:11) [9]

ATLANTIDO © (02.04.02 19:17)
Странно, может не она виновата?

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

---

← →
gek   (2002-04-04 12:15) [10]

CreateDirectories и у меня нет
Наверное имелась ввиду API CreateDirectory

---

← →
Dmitry V. Averuanov   (2002-04-04 13:01) [11]

Дико извиняюсь - функция называется
ForceDirectories

---

← →
Anatoly Podgoretsky   (2002-04-04 13:24) [12]

Другое дело, значит можешь посмотреть исходники

---

← →
Александр В. Суханов   (2002-05-07 12:10) [13]

Function ChekPath(S : String) : Boolean;
Var S1, S2 : String;
B : Boolean;
Begin
S2 := S;
B := True;
While Pos("\",S2) <> 0 Do Begin
S1 := Copy(S,0,Pos("\",S2));
S2[Pos("\",S2)] := """;
If Not DirectoryExists(S1)
Then If Not CreateDir(S1) Then B := False;
End;
ChekPath := B;
End;

---

← →
Александр В. Суханов   (2002-05-07 12:10) [14]

Function ChekPath(S : String) : Boolean;
Var S1, S2 : String;
B : Boolean;
Begin
S2 := S;
B := True;
While Pos("\",S2) <> 0 Do Begin
S1 := Copy(S,0,Pos("\",S2));
S2[Pos("\",S2)] := """;
If Not DirectoryExists(S1)
Then If Not CreateDir(S1) Then B := False;
End;
ChekPath := B;
End;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.005 c