Vb.net 写入文本文件不工作，未生成文本

这是我用来写入文本文件的，所有变量都有值，但当我打开.txt文件时，它不包含任何内容。

---

我不太擅长编程，只是按照老师给我的做

您提供的一半代码似乎与您提出的问题无关？下面是写入文本文件的简单实现

您似乎正在使用

pupilId

和

fileName

作为文件路径位置，这可能会造成一些混乱

StreamWriter

通过

TextWriter

实现了

IDisposable

，我建议使用它。见下文

PupilID = "\" & PupilID & ".txt"

If Dir$(PupilID) = "" Then
    Dim swpupilinfo As New StreamWriter(Application.StartupPath & PupilID, True)
    swpupilinfo.Close()
End If

If System.IO.File.Exists(filename) = True Then
    readerlinecount = File.ReadAllLines(Dir$(PupilID))
End If

Dim objwritere As New System.IO.StreamWriter(filename, True)
objwritere.WriteLine(quiztaken & " correct answers " & correct & " wrong answers " & wrong & " total mark " & totalmark)
objwritere.Close()

---

请张贴，什么是文件名，quiztaken等变量？此示例无法验证，因为它不完整。另外，请解释什么不起作用，你正在生成两个文本文件，都是空的？@Esko quiztaken有一个整数值，它读取文件并告诉你这是哪个测验。filename是txt文件的位置，因此位于调试文件夹中。正确和错误包含整数值，总分显示正确答案的总数。

Dim pupilId As Integer = 1
Dim path As String = String.Format("\\{0}.txt", pupilId)

Using sw As New StreamWriter(filePath,True)
   sw.WriteLine("Whatever text you want here")
End Using