Function getTxtString(ByVal mFileName As String) As String
'读取文本文件
FileOpen(1, mFileName, OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
Dim mLine As String
Do While Not EOF(1)
mLine = LineInput(1)
getTxtString = getTxtString & mLine
Loop
FileClose(1)
End Function