#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