Question

我一直在尝试和搜索几个小时，一切都告诉我要像我一样做，所以为什么不能将此代码写入我的文本文件？没有错误被抛出，只是数据不会写

Dim newDay As Boolean = True
Dim attendance As StreamWriter
    If newDay = True Then
        Try
            attendance = File.AppendText("attendanceLog.txt")
            attendance.WriteLine(Date.Today.ToString("dd/MM/yyyy"))
            newDay = False
        Catch
            MessageBox.Show("File access denied", "Error")
        End Try
    End If

Answer 1

使用StreamWriter时，您发送的所有内容都将被放入队列中，以避免每次需要附加新部件时写入文件（对于像日志这样的大文件效率非常低）。

要处理该队列，只需致电StreamWriter.Flush()。

但这是气馁的。你最后应该使用StreamWriter.Close()，它会自动执行此操作，然后从内存中处理对象。

Dim newDay As Boolean = True
Dim attendance As StreamWriter
If newDay = True Then
    Try
        attendance = File.AppendText("attendanceLog.txt")
        attendance.WriteLine(Date.Today.ToString("dd/MM/yyyy"))
        attendance.Close()
        newDay = False
    Catch
        MessageBox.Show("File access denied", "Error")
    End Try
End If

Answer 2

请确保您的文件路径

File.AppendText("c:\users\admin\document\attendanceLog.txt")  //for example

我认为这样可行，或者您可以在本地项目文件中找到attendanceLog.txt ..

为什么不能在Visual Basic中写入我的文本文件？

2 个答案: