'函数名：WritTextFile

'作 用：创建文本文件

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

'参 数：WritString ---- 写入的内容

'返回值：创建成功返回True，否则False

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

Public Function WritTextFile(ByVal Fname,ByVal WritString)

Dim M_fso,FnameN

WritTextFile=False

Set M_fso = CreateObject("Scripting.FileSystemObject")

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

FnameN.Write WritString

FnameN.Close

Set M_fso = Nothing

WritTextFile=True

End Function