Solved

Still exporting text, and a further question

Posted on 2013-01-01

Visual Basic.NET

1 solution

296 Views

Last Modified: 2013-01-01

Hi: I've been plugging away at exporting text from VB 2010. Moving right along, but now Im at the stage where I want to deliver a prompt to users to allow them to select or enter a filename. In short, I'm including a savefiledialog code with streamwriter code; I don't know where to insert the savefiledialog code. Below is what I have so far:

Dim objFile As New System.IO.StreamWriter(SaveFileDialog1, True)

SaveFileDialog1.Title = "Specify Desitination Filename"
SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt"
SaveFileDialog1.FilterIndex = 1

objFile.WriteLine(RichTextBox1.Text)
objFile.Close()

Thanks in advance. Robert

Comment

Question by:RobertGeoff

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

3 Comments

LVL 86

Accepted Solution

by:Mike Tomlinson

Mike Tomlinson earned 500 total points

ID: 387349712013-01-01

Use the ShowDialog() method and only save the file if "OK" is returned:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.Title = "Specify Desitination Filename"
        SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt"
        SaveFileDialog1.FilterIndex = 1

        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Using objFile As New System.IO.StreamWriter(SaveFileDialog1.FileName, True)
                objFile.WriteLine(RichTextBox1.Text)
            End Using
        End If
    End Sub

Open in new window

LVL 36

Expert Comment

by:Miguel Oz

ID: 387352042013-01-01

I will use WriteAllText instead of streaming the file. Replace lines 6 to 8 of previous post with:

System.IO.File.WriteAllText(SaveFileDialog1.FileName, RichTextBox1.Text)

Author Closing Comment

by:RobertGeoff

ID: 387354582013-01-01

Thank you both for you help. The second modification offered returned an exception, however. Robert

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Xml Literals

Article by: jpaulino

XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should. An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…

Visual Basic.NET

Custom Typed DataTable and DataSet

Article by: x77

I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code. This class Inherits from DataTable. Also, it can …

Visual Basic.NET

How to Identify Fonts on a website and download them.

Video by: Andrew

If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…