FSO读取文本文件 ASP函数
|
'[读取文本文件] '函数名: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 |