Solved

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

Posted on 2003-10-27
2
750 Views
Last Modified: 2007-12-19
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

0
Comment
Question by:bmx123
2 Comments
 
LVL 3

Accepted Solution

by:
sony1464 earned 45 total points
ID: 9631088
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
0
 
LVL 1

Expert Comment

by:Barraza
ID: 9645020
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.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

The object model of .Net can be overwhelming at times – so overwhelming that quite trivial tasks often take hours of research. In this case, the task at hand was to populate the datagrid from SQL Server database in Visual Studio 2008 Windows applica…
Welcome my friends to the second instalment and follow-up to our Minify and Concatenate Your Scripts and Stylesheets (http://www.experts-exchange.com/Programming/Languages/.NET/ASP.NET/A_4334-Minify-and-Concatenate-Your-Scripts-and-Stylesheets.html)…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

861 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question