XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
API: SHLWAPI.DLL - directories Verify (Root, empty, directory)
The functions are of names since selbsterklärend
Dieter Zornow
free
Def PathIsDirectory(1) ! shlwapi,PathIsDirectoryA gives 0 for No and 16 for Yes back
Def PathIsDirectoryEmpty(1) ! shlwapi,PathIsDirectoryEmptyA gives 1 for empty 0 for No
Def PathIsRoot(1) ! shlwapi,PathIsRootA gives 1 for root 0 for No

proc isDir

    parameters you$
    Return PathIsDirectory(addr(you$))

endproc

proc isDirEmpty

    parameters you$
    Return PathIsDirectoryEmpty(addr(you$))

endproc

proc DirisRoot

    parameters you$
    return PathIsRoot(addr(you$))

endproc

cls
isDir c:WINDOWSFONTS
print @&(0)
isDirEmpty c:\Test
print @&(0)
DirisRoot c:
print @&(0)
waitinput