VB 读写TXT文本文件函数

以下两个函数分别读取TXT文本文件与写入文件。这主要是对VB初学者来写的，帮助理解VB操作文件的相关知识，大鸟飞过。

VBScript code复制代码

Private Function GetTXT(Path As String) '读取文本
    Open Path For Input As #1
     GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
End Function

Private Sub SetTXT(Strl As String, Path As String) '写入文本
    Open Path For Output As #1
    Print #1, Strl;
    Close #1
End Sub