How to create and add data to a text file in VB.NET

I have three text boxes and an Add button. I want basically to create a Downloader.txt file in the directory c:\vb.net\files\Downloader.txt
I'm trying to use the following code but unable to create the above text file and add the data from three textboxes to the Downloader.txt file.

Primarily I want to check the Downloader.txt file exists in the above directory, if not I want to create it or if it exists I want to append the data to the file.

Here is the code:

 Dim datdownloader As New StreamWriter("downloader.txt", True)

             Dim strrecord As String


             If IsNumeric(txtname.Text) Then
                 MessageBox.Show("Enter A string Value ", "Invalid data Entry", _
                 MessageBoxButtons.OK, MessageBoxIcon.Warning)

             End If



             datdownloader.WriteLine(txtname.Text)
             datdownloader.WriteLine(txtdownloads.Text)
             datdownloader.WriteLine(txtaddress.Text)

strrecord = (txtname.Text & "|" & txtdownloads.Text & "|" & txtaddress.Text)

'I WANT TO ADD THE ABOVE strrecord to the Downloader.txt file if it exits, if not i want to create and append the strrecord to that file.

I appreciate your response.

bmx

bmx123Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

sony1464Commented:
Private Sub AddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddButton.Click
        Dim fso As File
        Dim writer As StreamWriter
        If fso.Exists("C:\vb.net\files\Downloader.txt") Then
            writer = fso.AppendText("C:\vb.net\files\Downloader.txt")
        Else
            writer = fso.CreateText("C:\vb.net\files\Downloader.txt")
        End If
        writer.WriteLine(txtname.Text)
        writer.WriteLine(txtdownloads.Text)
        writer.WriteLine(txtaddress.Text)
        writer.Close()

End Sub

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
BarrazaCommented:
btw,
if you do:
        writer = fso.AppendText("C:\vb.net\files\Downloader.txt")

instead of:
        If fso.Exists("C:\vb.net\files\Downloader.txt") Then
            writer = fso.AppendText("C:\vb.net\files\Downloader.txt")
        Else
            writer = fso.CreateText("C:\vb.net\files\Downloader.txt")
        End If

it will get the same result.  If the file does not exist, it will create it and add to it.  If it does exist, it will add to it.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
.NET Programming

From novice to tech pro — start learning today.