'函数名：ReadTextFile

'作 用：读取文本文件

'参 数：Fname ---- 文本文件名称（包括路径）

'返回值：返回读取的文本内容

'**************************************************

Public Function ReadTextFile(ByVal Fname)

Dim M_fso,FnameN,Fnr

ReadTextFile=""

Set M_fso = CreateObject("Scripting.FileSystemObject")

Set FnameN= M_fso.OpenTextFile(Fname,1,True)

Fnr=FnameN.ReadAll

FnameN.Close

Set M_fso = Nothing

ReadTextFile=Fnr

End Function