Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click Try SauverDonnees() Notification.Visible = False Application.Exit() Catch ex As Exception Dim Ecrire As StreamWriter = New StreamWriter(Environ("USERPROFILE") & "/Desktop/coucou.txt", True) Ecrire.WriteLine(ex.Message) Ecrire.Close() End Try End Sub