2007-11-04 03:40 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

* include/hbapifs.h
  * harbour/source/common/hbfsapi.c
    ! fixed hb_fsFileExists() for DOS 
    + Added hb_fsDirExists()

  * include/hbextern.ch
  * source/rtl/hbfile.c
    + Added HB_DIREXISTS()

harbour/include/hbapifs.h

@@ -148,6 +148,7 @@ extern HB_EXPORT FHANDLE  hb_fsGetOsHandle( FHANDLE hFileHandle );
 extern HB_EXPORT USHORT   hb_fsGetFError  ( void ); /* get FERROR() flag */
 extern HB_EXPORT void     hb_fsSetFError  ( USHORT uiError ); /* set FERROR() flag */
 extern HB_EXPORT BOOL     hb_fsFileExists ( const char * pszFileName ); /* check if a file exists (wildcard chars not accepted). */
+extern HB_EXPORT BOOL     hb_fsDirExists  ( const char * pszDirName ); /* check if a directory exists (wildcard chars not accepted). */
 
 #define hb_fsFLock( h, s, l )   hb_fsLock( h, s, l, FL_LOCK )
 #define hb_fsFUnlock( h, s, l ) hb_fsLock( h, s, l, FL_UNLOCK )

harbour/include/hbextern.ch

@@ -781,6 +781,7 @@ EXTERNAL HB_COMPILER
 EXTERNAL HB_PCODEVER
 EXTERNAL HB_BUILDDATE
 EXTERNAL HB_FILEEXISTS
+EXTERNAL HB_DIREXISTS
 EXTERNAL HB_FNAMEMERGE
 EXTERNAL HB_FNAMESPLIT
 EXTERNAL HB_LANGNAME