;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfPathIsDirectory (strPath)
Return 16 == DllCall (DirWindows (1) : "SHLWAPI.DLL", long : "PathIsDirectoryA", lpstr : strPath) ; Path maximum length MAX_PATH = 260.
;..........................................................................................................................................
; This UDF "udfPathIsDirectory" verifies that a path is a valid directory.
;
; Return value is @TRUE if the path is a valid directory (FILE_ATTRIBUTE_DIRECTORY (16) is set), or @FALSE otherwise.
;
; (c)Detlev Dalitz.20100302.
;..........................................................................................................................................
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------

; Test.

strPath = DirGet ()

blnIsPath1 = udfPathIsDirectory (strPath)       ; 1 = @TRUE.

blnIsPath2 = udfPathIsDirectory (strPath : "?") ; 0 = @FALSE.

Exit