Visual Basic, écrire dans le fichier

Question

Hey J'essaye d'écrire des données dans un échec en utilisant une table. Je le fais fonctionner mais, chaque fois que j'ajoute une nouvelle donnée, la dernière donnée est écrasée, ce qui fait que le fichier reste long de 2 lignes.

Chaque fois que je clique sur Button1, je veux qu'il envoie au fichier toutes les données précédentes capturées.

 My.Computer.FileSystem.WriteAllText("C:\Users\Michael\Documents\University\Application Programming\Assignment\Logs\AuditLog.htm", "<table border=1 width=100%> <tr><td> Staff Name </td> <td> Computer Number </td> <td> Fault </td> <td> Assigned Technician </td> <td> Date Submitted </td> </tr> ", False) 
    My.Computer.FileSystem.WriteAllText("C:\Users\Michael\Documents\University\Application Programming\Assignment\Logs\AuditLog.htm", "<tr> <td> <b> </b>" & StaffName & "</td> <td>" & ComputerNumber & "</td> <td>" & Fault & "</td> <td> " & AssignedTechnician & "</td> <td> " & DateSub & "</tr>", True) 

C'est où mon problème est. Im pensant que j'ai besoin d'une boucle pour quelque chose sur la deuxième ligne. Mais pas sûr de savoir comment s'y prendre.

Toute aide appréciée. Merci.

Answer 1

Regardez ce code

Dim FILE_NAME As String = "C:\Users\Owner\Documents\test.txt" 
Dim i As Integer 
Dim aryText(4) As String 

aryText(0) = "Mary WriteLine" 
aryText(1) = "Had" 
aryText(2) = "Another" 
aryText(3) = "Little" 
aryText(4) = "One" 

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 

For i = 0 To 4 
objWriter.WriteLine(aryText(i)) 
Next 

objWriter.Close() 
MsgBox("Text Appended to the File") 

Il here plus d'informations et here