按行获取文本文件的内容

不知是不是VB里最简单的方法？ Sub getlines(byval filename as string,byref lines() as string) If Len(Dir(filename)) = 0 Then Exit Sub Open filename For Input As #1 ' 打开文件。 lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) Close #1 End Sub