如何在VB中读取文件-第1部分-VB6，行输入

这是一个非常简单的示例例程，它一次读取一行文本文件。 这仅使用内置的VB语句。 稍后，我们将介绍FileSystemObject，它提供了更多功能，但以稍微复杂的代码为代价。

可以将此自包含的例程粘贴到代码模块中，然后从任何位置（包括即时窗口）进行调用。 它将期望您传递文件名（如果文件不在当前目录中，则包括路径），并将文件内容复制到立即窗口。 请注意，这还将尽可能避免干扰当时可能正在进行的任何其他处理。

Public Sub DumpFile_V01(ByVal FileName As String)
  Dim FileNo As Long
  Dim LineNo As Long
  Dim LineText As String 
  FileNo = FreeFile ' Get next available file number. 
  Open FileName For Input Access Read Shared As #FileNo
  Do Until EOF(FileNo) ' Repeat until end of file...
    Line Input #FileNo, LineText ' Read a line from the file.
    LineNo = LineNo + 1
    Debug.Print Format(LineNo, "00000"); ": "; LineText
    DoEvents ' Allow Windows to handle other tasks.
  Loop
  Close #FileNo
End Sub

From: https://bytes.com/topic/visual-basic/insights/647301-how-read-file-vb-part-1-vb6-line-input