lcBuffer = FREAD(lnFh1, 1)
IF ASC(lcBuffer) <> 0x30
  * not VFP table
  lcDbcName = "***NOT VFP TABLE***"
  RETURN lcDbcName 
ELSE
  * table in dbc

  * Next is a comment ?     <-------------

  lcDbcName = LEFT( lcBuffer, AT( CHR(0), lcBuffer) - 1)

ENDIF