Programalama > VISUAL BASIC.NET

'Projeye textbox, savefiledialog ve button nesnelerini ekleyin. 'Aşağıdaki kodu olduğu gibi yapıştırın.

Imports System
Imports System.IO
Imports System.Text
Public Class Form1
 Public Sub Kaydet()
          SaveFileDialog1.Filter = "Metin Dosyaları (*.txt)|*.txt|"
        SaveFileDialog1.Title = "Metin Kaydet"
        SaveFileDialog1.ShowDialog()
        Dim path As String = SaveFileDialog1.FileName
        If File.Exists(path) = False Then
            Dim createText As String = TextBox1.Text
            File.WriteAllText(path, createText)
        End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Kaydet()
End Sub

'Not: Vsual Studio 2008 için bir koddur. Alt sürümlerde çalışırmı bilmem. Herhalde çalışır...

anıl karagümüş
asd@fgh.com