Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.IO Public Class Form1 Dim key As Microsoft.Win32.RegistryKey Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckBox1.Checked = True ' Création d'une instance de StreamReader pour permettre la lecture de notre fichier Dim monStreamReader As StreamReader = New StreamReader("Evenement" & DateTimePicker1.Text) Dim ligne As String If System.IO.Directory.Exists("Evenement") = False Then System.IO.Directory.CreateDirectory("Evenement") End If If System.IO.File.Exists("Evenement" + DateTimePicker1.Text) Then Try 'Lecture de toutes les lignes et affichage de chacune sur la page ligne = monStreamReader.ReadToEnd Select Case MsgBox(DateTimePicker1.Text & vbNewLine & ligne & vbNewLine & vbNewLine & "Voulez-vous supprimer l'évènement?", MsgBoxStyle.YesNo) Case vbYes monStreamReader.Close() Dim mon_fichier As New FileInfo("Evenement" & DateTimePicker1.Text) mon_fichier.Delete() Case vbNo monStreamReader.Close() End Select Catch ex As Exception 'Code exécuté en cas d'exception MsgBox(ex.Message) End Try End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try 'Instanciation du StreamWriter avec passage du nom du fichier Dim monStreamWriter As StreamWriter = New StreamWriter("Evenement" & DateTimePicker1.Text, True, System.Text.Encoding.ASCII) 'Ecriture du texte dans votre fichier monStreamWriter.WriteLine(TextBox1.Text) 'Fermeture du StreamWriter (Trés important) monStreamWriter.Close() Catch ex As Exception 'Code exécuté en cas d'exception MsgBox(ex.Message) End Try TextBox1.Clear() End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) key.SetValue("InAdvance", Application.StartupPath + "\InAdvance.exe") ElseIf CheckBox1.Checked = False Then key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) key.DeleteValue("InAdvance") End If End Sub End Class
Dim monStreamWriter As StreamWriter = New StreamWriter(dossierlocal & DateTimePicker1.Text, True, System.Text.Encoding.UTF8)