#DEFINE FILE_ATTRIBUTE_DIRECTORY   16 
#DEFINE INVALID_HANDLE_VALUE      - 1 

DECLARE integer FindClose IN WIN32API integer
DECLARE integer FindFirstFile IN WIN32API string @, string @
DECLARE integer FindNextFile IN WIN32API integer, string @
LOCAL lcBuffer, lcDir, lcFileName
lcBuffer = SPACE( 318 )
lcDir = GETDIR()
IF !EMPTY(lcDir)
	hFile = FindFirstFile(ADDBS(lcDir)+'*.*', @lcBuffer)
	IF hFile <> INVALID_HANDLE_VALUE 
		CREATE CURSOR filez (filename C( 240 ) UNIQUE)
		DO WHILE .T.
			IF BITAND(buf2dword(LEFT(lcBuffer,  4 )), FILE_ATTRIBUTE_DIRECTORY) <> ;
FILE_ATTRIBUTE_DIRECTORY
				lcFileName = SUBSTR(lcBuffer,  45 ,  260 )
				lcFilename = LEFT(lcFileName, AT(CHR( 0 ), lcFileName) -  1 ) 
				INSERT INTO filez (filename) VALUES (lcFileName)
			ENDIF 
			IF FindNextFile (hFile, @lcBuffer) =  0 
				EXIT 
			ENDIF 
		ENDDO 
		=FindClose(hFile)
		SET ORDER TO filename
		GO TOP 
		BROWSE 
	ENDIF 
ENDIF 
CLEAR DLLS 
USE 

 
FUNCTION  buf2dword (lcBuffer)
RETURN Asc(SUBSTR(lcBuffer,  1 , 1 )) +;
    Asc(SUBSTR(lcBuffer,  2 , 1 )) *  256  +;
    Asc(SUBSTR(lcBuffer,  3 , 1 )) *  65536  +;
    Asc(SUBSTR(lcBuffer,  4 , 1 )) *  16777216