IF ASC(lcBuffer) <> 0x30 * not VFP table lcDbcName = "***NOT VFP TABLE***" RETURN lcDbcName ENDIFHi Sergey,
>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 > >>