XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Verzeichnisse prüfen (Root, leer, directory)
Die Funktionen sind vom Namen her selbsterklärend
Dieter Zornow
free
Def PathIsDirectory(1) ! shlwapi,PathIsDirectoryA gibt 0 für nein und 16 für ja zurück
Def PathIsDirectoryEmpty(1) ! shlwapi,PathIsDirectoryEmptyA gibt 1 für leer 0 für nein
Def PathIsRoot(1) ! shlwapi,PathIsRootA gibt 1 für root 0 für nein

proc isDir

    parameters dir$
    Return PathIsDirectory(addr(dir$))

endproc

proc isDirEmpty

    parameters dir$
    Return PathIsDirectoryEmpty(addr(dir$))

endproc

proc DirisRoot

    parameters dir$
    return PathIsRoot(addr(dir$))

endproc

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