//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      PathIsDirectory.Pkg
//
// Purpose:
//      Defines interface to WinAPI function PathIsDirectory.
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, May, 29th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_PathIsDirectory
External_Function WinAPI_PathIsDirectory "PathIsDirectoryA" SHLWAPI.DLL Pointer lpszPath Returns Integer

//=============================================================================
// Verifies that a path is a valid directory.
//
// Returns TRUE if the path is a valid directory, or FALSE otherwise.
//
// Parameters:
//      sPath - Address of the path to verify.
//=============================================================================
// 2003-07-29 ------------------------------------ Start Nils G. Svedmyr
#IF PKG_Version<|CI9
  Function PathIsDirectory For Desktop String sPath Returns Integer
#ELSE
  Function PathIsDirectory Desktop String sPath Returns Integer
#ENDIF
// 2003-07-29 ------------------------------------ Stop Nils G. Svedmyr
    Boolean bRetVal

    Move (sPath - Character (0)) To sPath
    Move (WinAPI_PathIsDirectory (AddressOf (sPath))) To bRetVal

    Function_Return bRetVal
End_Function // PathIsDirectory
#ENDIF