IF ASC(lcBuffer) <> 0x30
  * not VFP table
  lcDbcName = "***NOT VFP TABLE***"
  RETURN lcDbcName 
ENDIF

>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
>
>