我已经尝试和搜索了几个小时,所有的事情都告诉我要像我正在做的那样做,那么为什么这段代码不写到我的文本文件中呢?没有抛出错误,只是数据不会写
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发布于 2014-12-02 08:29:12
在使用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发布于 2014-12-02 07:53:19
请确保除了您的文件路径
File.AppendText("c:\users\admin\document\attendanceLog.txt") //for example我认为这是可行的,或者您可以在本地项目文件上找到attendanceLog.txt。
https://stackoverflow.com/questions/27242740
复制相似问题