FreeBasic
Главная
Вход
Регистрация
Среда, 09.10.2024, 10:38Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Проверка существования директории
electrikДата: Среда, 18.09.2013, 16:04 | Сообщение # 1
Полковник
Группа: Друзья
Сообщений: 182
Репутация: 3
Статус: Offline
Код
#include "windows.bi"
declare function DirExists(byval Directory as zstring ptr) as integer

function DirExists(byval Directory as zstring ptr) as integer
dim attr as integer  = GetFileAttributes(Directory)
if (attr <> INVALID_FILE_ATTRIBUTES AndAlso (attr and FILE_ATTRIBUTE_DIRECTORY)) then function = -1
end function

print DirExists("c:\iqvz.ldf;fhg")
print DirExists("c:\windows")
print DirExists("c:\windows\notepad.exe")
sleep


Сообщение отредактировал electrik - Среда, 18.09.2013, 16:09
 
  • Страница 1 из 1
  • 1
Поиск: