Comment ajouter du texte en attente à l'état de la case à cocher?

Question

Je crée un formulaire avec une case à cocher où, si cochée, un fichier cible est ajouté avec le texte A et si non coché le fichier est ajouté avec le texte B

Comment puis-je faire cela?

ce que j'ai sofar:

Private Sub CheckBox1_Checked(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Checked 
    Dim FILE_NAME As String = "C:\ANSWERSLIST.txt" 

    'Adding items for AutoCAD 2006... 
    If System.IO.File.Exists(FILE_NAME) = True Then 
     Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 
     objWriter.WriteLine("YES") 
     objWriter.Close() 
    End If 
End Sub 

Answer 1

Vous pouvez utiliser la méthode AppendAllText:

If MyCheckBox.IsChecked Then 
    File.AppendAllText("foo.txt", "text-A") 
Else 
    File.AppendAllText("foo.txt", "text-B") 
End If