need write stament

[Shaun29]

the system IO will not lte me write my array?


ofd3.ShowDialog()
If Not Me.txtFile.Text = "close" Then
'Read the existing file



Dim FileText As String = ""
FileText = System.IO.File.ReadAllText(Me.txtFile.Text)

'saw characters
Dim MID1 As String
MID1 = Mid("C", 7, 5)
Dim MID2 As String
MID2 = Mid("FB", 7, 5)
Dim MID3 As String
MID3 = Mid("L", 7, 5)
Dim MID4 As String
MID4 = Mid("RB", 7, 5)
Dim MID5 As String
MID5 = Mid("S", 7, 5)
Dim MID6 As String
MID6 = Mid("TS", 7, 5)
Dim MID7 As String
MID7 = Mid("XS", 7, 5)


'Write to the log file
System.IO.File.WriteAllLines.MID1(ofd2.FileName))


'System.IO.File.AppendAllText(ofd2.FileName, MID2)
'System.IO.File.AppendAllText(ofd2.FileName, MID3)
'System.IO.File.AppendAllText(ofd2.FileName, MID4)
'System.IO.File.AppendAllText(ofd2.FileName, MID5)
'System.IO.File.AppendAllText(ofd2.FileName, MID6)
'System.IO.File.AppendAllText(ofd2.FileName, MID7)


'Timer FOR PROGRESS BAR
Timer1.Start()
Timer1.Enabled = True



MessageBox.Show("B.O.M Transfered")
Else
MessageBox.Show("Please select a file.")
End If
End Sub