Permitir al usuario escoger un fichero para guardarlo

1996 vistas

El componente System.Windows.Form.SaveFileDialog permite al usuario escoger interactivamente un fichero con el fin de usarlo para guardar datos.

Veamos un ejemplo que permite guardar en un fichero el contenido de un RichTextBox.



vbnet
  1. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.  
  3.     If MessageBox.Show(Me, _
  4.                       "¿Realmente quiere guardar el documento?", _
  5.                       "GUARDAR", _
  6.                       MessageBoxButtons.YesNo, _
  7.                       MessageBoxIcon.Question) = DialogResult.No Then
  8.         Return
  9.     End If
  10.  
  11.     ' Guardado del documento
  12.     SaveFileDialog1.Title = "Guardar"
  13.     SaveFileDialog1.DefaultExt = "txt"
  14.     SaveFileDialog1.Filter = "Ficheros de texto (*.txt)|*.txt|Todos los ficheros (*.*)|*.*"
  15.     SaveFileDialog1.FilterIndex = 1
  16.     ' mostramos cuadro de diálogo de guardar
  17.     If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then
  18.  
  19.         Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile, Encoding.Default)
  20.         Try
  21.             Dim i As Integer = 0
  22.             While i < RichTextBox1.Lines.Length
  23.                 sw.WriteLine(RichTextBox1.Lines(i))
  24.                 System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
  25.             End While
  26.         Finally
  27.             If Not (sw Is Nothing) Then
  28.                 sw.Close()
  29.             End If
  30.         End Try
  31.     End If
  32. End Sub