Ecrire_Sauvegarder_Fichier.vb.net

Ecrire_sauvegarder_Fichier.vb.net

Ecrire dans un fichier et le sauvegarder

cette application sert de bloc note rapide

2 textBox
4 boutons

le bouton ===>> permet de rechercher le dossier de réception du fichier
le bouton Save permet de créer le fichier texte
le bouton Reset permet de remettre à zero les 2 textbox avant de sauvegarder
le bouton Quitter permet de fermer l'application

Code:


Public Class Form1

    Private Sub BtnQuitter_Click(sender As Object, e As EventArgs) Handles BtnQuitter.Click
        Me.Close()

    End Sub

    Private Sub BtnRecherche_Click(sender As Object, e As EventArgs) Handles BtnRecherche.Click
        Dim sauvegarde As New SaveFileDialog
        sauvegarde.filter = "du texte | *.txt"

        If TBFichier.Text = "" Then
            MsgBox("vous n'avez tabulé aucun texte" & vbNewLine & " sur votre espace de travail", vbCritical, "Erreur")

        Else
            sauvegarde.ShowDialog()
            TBcheminFichier.Text = sauvegarde.FileName
        End If

    End Sub

    Private Sub BtnSauve_Click(sender As Object, e As EventArgs) Handles BtnSauve.Click

        If TBcheminFichier.Text = "" Then
            MsgBox("Veuillez choisir l'emplacement de la sauvegarde" & vbNewLine & "et donner un nom à votre fichier", vbCritical, "Erreur")
        Else
            IO.File.WriteAllText(TBcheminFichier.Text, TBFichier.Text)
            MsgBox("Fichier sauvegardé", vbExclamation, "Sauvegarde")

            TBcheminFichier.Clear()
            TBFichier.Clear()

        End If
    End Sub

    Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
        If TBcheminFichier.Text = "" And TBFichier.Text = "" Then
            MsgBox("les textbox sont vides", vbCritical, "Erreur")
        Else
            TBcheminFichier.Clear()
            TBFichier.Clear()

        End If

    End Sub

    Private Sub TBFichier_TextChanged(sender As Object, e As EventArgs) Handles TBFichier.TextChanged

    End Sub
End Class



Merci !