!-----------------------------------------------------------------------------------------------
IsFile PROCEDURE(cDatei)

!  INCLUDE('winconst.clw')

IsOk              BYTE

LFN:Path          CSTRING(255)
hFile             HANDLE

MyWIN32_FIND_DATA GROUP,PRE(FData)
dwFileAttributes    DWORD
ftCreationTime      GROUP,PRE()
dwftCrLowDateTime     DWORD
dwftCrHighDateTime    DWORD
                    END
ftLastAccessTime    GROUP,PRE()
dwftLaLowDateTime     DWORD
dwftLaHighDateTime    DWORD
                    END
ftLastWriteTime     GROUP,PRE()
dwftLwLowDateTime     DWORD
dwftLwHighDateTime    DWORD
                    END
nFileSizeHigh       DWORD
FileSizeLow         DWORD
dwReserved0         DWORD
dwReserved1         DWORD
cFileName           CSTRING(MAX_PATH)
cAlternateFileName  CSTRING(14)
                  END

  CODE
  LFN:Path = CLIP(cDatei)
  hFile = FindFirstFileA(LFN:Path,ADDRESS(MyWIN32_FIND_DATA))
  IF hFile >= 0
    IF FindClose(hFile).
    IsOk = True
  END
  RETURN(IsOk)