Question

我只是想让一个简单的练习eof功能工作，但它不起作用我只是想知道是否有人知道为什么快速的原因。这是一个简单的功能：

Public Sub endOF()
    Dim textline As String
    FileOpen(1, "TESTFILE", OpenMode.Input)     'Open file
    Do While Not EOF(1)
        textline = LineInput(1)
        Debug.WriteLine(textline)

    Loop
    FileClose(1)
End Sub

错误发生在EOF(1)

Answer 1

您可能会将testfile.txt放在错误的文件夹中，请尝试将其放入文件夹C:\

并编辑您的方法。一定要在测试文件中写一些文字。

Public Sub endOF()
    Dim textline As String
    FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Input)     'Open file
    Do While Not EOF(1)
        textline = LineInput(1)
        Debug.WriteLine(textline)

    Loop
    FileClose(1)
End Sub

EOF功能无效

1 个答案: