where I can found LFNFILE() and LFNDIRECTORY() ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour two functions
Silvio,
File() and Directory() should be able to manage LFN.
sorry,
But I have a old source code and not founded these funcs when I compiled it
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
FUNCTION LfnFile(cF)
RETURN (File(cF))
FUNCTION LfnDirectory(cD)
RETURN (Directory (cD))kind regards
Stefan
Stefan
Silvio,
This is the LFNFILE function I use :
I can't remember who send it to me but it is working just fine.
Good luck.
This is the LFNFILE function I use :
#INCLUDE "STRUCT.CH"
#DEFINE MAX_PATH 260
#DEFINE FILE_ATTRIBUTE_READONLY 1
#DEFINE FILE_ATTRIBUTE_HIDDEN 2
#DEFINE FILE_ATTRIBUTE_SYSTEM 4
#DEFINE FILE_ATTRIBUTE_DIRECTORY 16
#DEFINE FILE_ATTRIBUTE_ARCHIVE 32
#DEFINE FILE_ATTRIBUTE_NORMAL 128
#DEFINE FILE_ATTRIBUTE_TEMPORARY 256
******************************************************************************
DLL32 FUNCTION FINDFIRSTFILE(cFileName AS LPSTR,cFindFileData AS LPSTR) AS LONG PASCAL FROM "FindFirstFileA" LIB "kernel32.dll"
DLL32 FUNCTION FINDCLOSE(nFindFile AS LONG) AS BOOL PASCAL FROM "FindClose" LIB "kernel32.dll"
******************************************************************************
FUNCTION LFNFILE(cFile)
LOCAL oWin32FindData := OWIN32FINDDATA()
LOCAL hFile
hFile := FINDFIRSTFILE(cFile,oWin32FindData:cBuffer)
FINDCLOSE(hFile)
RETURN(hFile <> -1 .AND. NAND(oWin32FindData:nFileAttr,FILE_ATTRIBUTE_DIRECTORY) = 0)
******************************************************************************
STATIC FUNCTION OWIN32FINDDATA
LOCAL oWin32FindData
STRUCT oWin32FindDATA
MEMBER nFileAttr AS DWORD
MEMBER cCreatTime AS STRING LEN 10
MEMBER cLastATime AS STRING LEN 10
MEMBER cLastWTime AS STRING LEN 10
MEMBER nFileSizeH AS DWORD
MEMBER nFileSizeL AS DWORD
MEMBER nReserved0 AS DWORD
MEMBER nReserved1 AS DWORD
MEMBER cFileName AS STRING LEN MAX_PATH
MEMBER cShortName AS STRING LEN 14
ENDSTRUCT
RETURN(oWin32FindData)I can't remember who send it to me but it is working just fine.
Good luck.
Regards,
Michel D.
Genk (Belgium)
_____________________________________________________________________________________________
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773