テキストファイルへの書き込みは行われません。テキストは生成されません。

Question

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() 

これはテキストファイルに書き込むために使用します。すべての変数には値がありますが、.txtファイルを開くと何も含まれません。 私の先生が教えてくれたものからちょうど去っていくプログラミングではそれほど素晴らしいことではありません。

Answer 1

あなたが提供したコードの半分は、あなたが質問した質問には関係していないようですか？以下は、テキストファイルへの単純な実装です。

混乱の原因となる可能性のあるファイルパスの場所として、pupilIdとfileNameが使用されているようですか？

StreamWriterIDisposableTextWriterを実装することをお勧めします。以下を参照してください

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