Visual Basic Txt Kaydetme Yardım!

GameShark' Alıntı:

Bir Program Üzerinde Çalışıyorum Txt Dosyasını Var Olan Bir Dosyanın Üzerine Kaydedince Üzerine Kayıt Etmiyor Kelimeyi Ona Ekliyor Bunu Nasıl Üzerine Yazmasını Sağlayabilirim ?

Genişletmek için tıkla ...

Internete şöyle yaz vb.net txt dosyası oluşturma , senin problemini çözecek bir kod bul mutlaka sonuca ulaşırsın ayrıca bunu yardım merkezine açman gerekirdi .

Kod'u at düzeltelim,
Vb.net mi? yoksa Vb6 mı? kullanıyorsun.

O txtyi sildirip yeni txt ekliyebilirsin.

var olan ile değiştirilsinmi dediği zaman evet e tıklanırsa bunun yapılmasınını istiyorum
kod:

sifrelenecek = RichTextBox1.Text
For i = 1 To Len(sifrelenecek)
degisken = Asc(Mid(sifrelenecek, i, 1)) + 1
sifrelenmis = Chr(degisken)
RichTextBox2.Text = sifrelenmis + RichTextBox2.Text
Next
Dim dig As SaveFileDialog = New SaveFileDialog
dig.Title = "Kaydet"
dig.Filter = "Zengin Metin Belgesi (*.rtf) |*.rtf"
If dig.ShowDialog = Windows.Forms.DialogResult.OK Then
RichTextBox2.SaveFile(dig.FileName, RichTextBoxStreamType.RichText)
End If