如何在vb.net中将内容写入文本文件

Question

I Created VALIDCCC.TXT and I need to write some content into this text file, content as shown below

Content :

00   A0
00   A1
00   A2
10   A0
10   A1

My Code as Follows :

filepath = filepath + "\" + strsubmenu + "\"

If (Not System.IO.Directory.Exists(filepath)) Then
    System.IO.Directory.CreateDirectory(filepath)
End If

filepath = filepath + "MATRIX\"
If (Not System.IO.Directory.Exists(filepath)) Then
    System.IO.Directory.CreateDirectory(filepath) 
End If

filepath = filepath + "VALIDCCC.TXT"
If (Not System.IO.Directory.Exists(filepath)) Then
    File.Create(filepath)
End If

File.WriteAllText(filepath, String.Empty)
Dim objWriter As New System.IO.StreamWriter(filepath, True)

For Each Customeritem As ListItem In CustomerCodeDVListBox.Items

   For Each CCCitem As ListItem In CCCListBox.Items 
       objWriter.WriteLine(Customeritem.ToString() + Space(4) + CCCitem.ToString()) 
   Next
Next 

I have 2 listboxes combination of this listbox seleted values should write into Textfile. Before writing content if VALIDCCC.TXT exists I need to clear the content or overwrite with New Content...

Answer 1

This is working ...

 filepath = filepath + "VALIDCCC.TXT"
                Dim objWriter As StreamWriter

                Dim sb As New StringBuilder
                For Each Customeritem As ListItem In CustomerCodeDVListBox.Items
                    If Customeritem.Selected Then
                        For Each CCCitem As ListItem In CCCListBox.Items
                            If CCCitem.Selected Then
                                sb.Append(Customeritem.ToString() + Space(4) + CCCitem.ToString())
                                sb.Append(Environment.NewLine) 
                            End If
                        Next
                    End If
                Next

                If (Not System.IO.Directory.Exists(filepath)) Then
                    objWriter = File.CreateText(filepath)
                    objWriter.WriteLine(sb.ToString())
                    objWriter.Close()
                End If

Answer 2

See if this helps:

filepath = filepath + "\" + strsubmenu + "\MATRIX\VALIDCCC.TXT"
Dim DirPath As String = Path.GetDirectoryName(filepath)
If Not Directory.Exists(dirpath) Then
    Directory.CreateDirectory(dirpath)
End If
Dim objWriter As New System.IO.StreamWriter(filepath)

For Each Customeritem As ListItem In CustomerCodeDVListBox.Items

   For Each CCCitem As ListItem In CCCListBox.Items 
       objWriter.WriteLine(Customeritem.ToString() + Space(4) + CCCitem.ToString()) 
   Next
Next

This will create any folders as necessary and overwrite or create the text file as needed.