vb.net enregistrer projet sous code example

Example: vb.net enregistrer projet sous

Private chemin_fichier As String = ""
 
Private Sub SaveText()
    SFDF5.FileName = "*.html"
    SFDF5.Filter = "Fichier HTML (*.html)|*.html|Fichier HTM (*.htm)|*.htm"
    If SFDF5.ShowDialog() Then ' Pas besoin de générer un événement pour la boite de dialogue, une condition suffit
        File.WriteAllText(SFDF5.FileName, Me.TextBox2.Text, System.Text.Encoding.Default)
        chemin_fichier = SFDF5.FileName
    End If
End Sub
 
Private Sub SaveAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAs.Click
    SaveText()
End Sub
 
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
    If File.Exist(chemin_fichier) Then ' Si le fichier existe
        File.WriteAllText(SFDF5.FileName, Me.TextBox2.Text, System.Text.Encoding.Default) ' On réécrit dans le fichier
    Else
        SaveText() ' On fait comme pour Enregistrer sous
    End If
End Sub