Hacer log con richTextBox

[Meta]

Hola:

Tengo un Form1, en él un richTextBox, un textBox y un buttton llamado "Cambiar". El programa se trata de lograr una auditoría, es decir, guardar los datos recibidos en el RichTextBox en un documento de texto con extención .log o .txt, me da igual.

El botón Cambiar debo seleccionar un componente para que se abra llamado SaveFileDialog, no lo se, solo creo.

El programa debe aparecer que al pulsar botón cambiar abre un cuadro donde guardar un archivo de texto .txt o .log en el directorio que quiera.

En el TextBox de al lado, aparece la dirección completa donde se están guardando los datos.

En el RichTextBox, lee los datos recibidos y los guarda en el .txt si se ha seleccionado.

¿Cómo se puede hacer?

Código (csharp) [Seleccionar] Expandir


private void button_directorio_Click(object sender, EventArgs e)
        {
            if (saveFileDialog1.ShowDialog() == DialogResult.OK)
            {
                textBox1.Text = saveFileDialog1.FileName;
                if (File.Exists(textBox1.Text))
                    File.Delete(textBox1.Text);
            }
            else
            {
                textBox1.Text = "";
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {
            // Aquí hay que confirmar si realmente se debe guardar .log
            saveFileDialog1.FileName = textBox1.Text;
        }


Código fuente completo.

DESCARGAR

Un cordial saludo.

[Christian010]

Solo conozco Vb.net, pero es poco code:

Primero al savefiledialog le pones la propiedad filter en: Text files (*.txt)|*.txt

Despues en el codigo del boton pones:

Código (csharp) [Seleccionar] Expandir


       If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = SaveFileDialog1.FileName
       Else
           TextBox1.Text = Nothing
       End If


y en el evento textchanged del textbox pones o en el boton de confirmar:

Código (csharp) [Seleccionar] Expandir


       If TextBox1.Text = Nothing Then
       Else
           My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, RichTextBox1.Text, True)
       End If


salu2