VPF::Существует ли папка? - Форум программистов

Дата 9.1.2006, 20:23 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как мне проверить, существует ли каталог?

Дата 9.1.2006, 20:48 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

directoryExists() - дириктория
FileExists( - файлж

Дата 9.1.2006, 20:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

FRAGNATIC, Дельфи? Вообще-то раздел - о Паскале...

Гость_Dmitriy,
все-таки попробуй способ с FindFirst и проверкой DosError...

Дата 9.1.2006, 21:53 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

как вариант:

Код


function DirExust(Dir:String):boolean;
begin
Result:=false;
{$I-}
MkDir(Dir)
if IOResult<>0 then
   Result:=true
   else
   RmDir(Dir);
{$I+}  
end;

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Дата 9.1.2006, 23:09 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

Цитата(volvo877 @ 9.1.2006, 20:59

)

FRAGNATIC, Дельфи? Вообще-то раздел - о Паскале...

ой. А я и не заметил прочто через RSS по линке зашёл и всё =)

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