none
fileopen, fileline y fileclose no pertenecena FileSystem RRS feed

  • Pregunta

  • 

    Protected Sub botonguardar_Click(sender As Object, e As EventArgs) Handles botonguardar.Click Try Dim archivolibre As Integer = FreeFile() FileSystem.FileOpen(archivolibre, MapPath("./archivodetexto.txt"), OpenMode.Output) FileSystem.PrintLine(archivolibre, texto.Text) FileSystem.FileClose(archivolibre) texto.Text = "" MsgBox("Informacion guardada en archivo", MsgBoxStyle.Information, "Guardar archivo") Catch ex As Exception MsgBox("La Informacion no fue guardada en archivo" & ex.Message, MsgBoxStyle.Critical, "Guardar archivo") End Try End Sub End Class

    NO PUEDO ACABAR EL PROGRAMA POR ESTOS ERRORES GRACIAS


    sábado, 31 de octubre de 2015 5:15

Respuestas