如何用VFP判斷文本文件的編碼格式？

*--文本文件的編碼格式手動查看方法：
*--用記事本打開文本後，點擊菜單上的“另存爲”，編碼格式在出現的對話框下方。
*--那用VFP如何取得文本文件的編碼格式呢，如下：
lcFileName='C:/A.txt'    &&文本文件名
lcStr=Filetostr(lcFileName)
lcStrType=Createbinary(Substr(lcStr,1,2))
Do Case
    Case lcStrType=0hEFBB    &&VFP6.0不支持此種方式，此實列是在VFP9.0+SP2下測試的。
        lcCode='UTF-8'
    Case lcStrType=0hFFFE
        lcCode='Unicode'
    Case lcStrType=0hFEFF
        lcCode='Unicode big endian'
    Otherwise
        lcCode='ANSI'
Endcase
?'此文本的編碼格式爲:',lcCode