como una imagen vale mas que mil palabras les dejo el form del ejercicio para que puedan entender lo que intento hacer.
(http://i45.tinypic.com/x3i9t1.jpg)
el codigo que llevo es el siguiente : me marca ERROR EN LA PARTE ROJA, QUE PUEDO HACER PARA corregirlo
Imports System.IO.StreamWriter
Public Class Form1
Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
'cerrar el programa
Me.Close()
End Sub
Private Sub BtnTexto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTexto.Click
' declarar una variable para la escritura
' de texto en un fichero
Dim oEscritor As StreamWriter
' crear un fichero de texto vacío
' y obtener un objeto StreamWriter
' para escribir en el fichero
oEscritor = file.CreateText(Environment.CurrentDirectory & "\" & Me.TxtNombre.Text & ".TXT")
' escribir en el fichero el contenido del
' control TextBox
oEscritor.Write(Me.TxtTexto.Text)
' cerrar el objeto, lo que cierra también el
' fichero, y eliminar el objeto
oEscritor.Close()
oEscritor = Nothing
End Sub
End Class
Hace rato que no toco .NET,
Imports System.IO
' # SNIP
File.CreateText(path)
:http://msdn.microsoft.com/es-es/library/system.io.file.createtext%28v=vs.80%29.aspx
El ejercicio se puede simplificar mucho xD
Public Class Form1
Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
Application.Exit()
End Sub
Private Sub BtnTexto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTexto.Click
My.Computer.FileSystem.WriteAllText(Environment.CurrentDirectory & "\" & Me.TxtNombre.Text & ".TXT", Me.TxtTexto.Text, False)
End Sub
End Class
Saludos!