XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
API: SHLWAPI.DLL - Verzeichnisse prüfen (Root, leer, directory)
El Características son vom Namen her selbsterklärend
Dieter Zornow
free
Def PathIsDirectory(1) ! shlwapi,PathIsDirectoryA son 0 para nein y 16 para sí zurück
Def PathIsDirectoryEmpty(1) ! shlwapi,PathIsDirectoryEmptyA son 1 para leer 0 para nein
Def PathIsRoot(1) ! shlwapi,PathIsRootA son 1 para root 0 para nein

proc isDir

    parámetros dir$
    Volver PathIsDirectory(addr(dir$))

ENDPROC

proc isDirEmpty

    parámetros dir$
    Volver PathIsDirectoryEmpty(addr(dir$))

ENDPROC

proc DirisRoot

    parámetros dir$
    volver PathIsRoot(addr(dir$))

ENDPROC

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