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