FAttrib()

FAttrib()

Postby Badara Thiam » Fri Oct 17, 2008 10:52 am

Hi,

The function FAttrib() of my FWH pack return 1 when she must return 0.
I have created a new function who return same values than Clipper Tools
3, with the same name. This function work perfectly in Clipper and Harbour Windows programs. No problem under 98, XP, Vista.

Thanl you to inform me if she not work for you.

Regards,

Code: Select all  Expand view
******************
FUNCTION FILEATTR(cFichier)
*****************
LOCAL nAttr := GetFileAttributes(cFichier)
IF nAttr >= 256
* Attribut "Temporaire"
  nAttr := nAttr % 256
ENDIF
IF nAttr >= 128
* Attribut "Normal"
  nAttr := nAttr % 128
ENDIF
RETURN nAttr

***************************
DLL FUNCTION GetFileAttributes( lpszSearchFile AS STRING ) AS DWORD ;
PASCAL FROM "GetFileAttributesA" LIB "KERNEL32.DLL"
**************************

Badara Thiam
http://www.icim.fr
User avatar
Badara Thiam
 
Posts: 160
Joined: Tue Oct 18, 2005 10:21 am
Location: France

Return to FiveWin for CA-Clipper

Who is online

Users browsing this forum: No registered users and 5 guests