yes, the program is modifying pass2ebs.txt file. and every thing is closed.Here is the entire code
Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Diagnostics.Process
Public Class frmEbs
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NewEbsFiles As String
Dim OldEbsFiles As String
Dim p1 As Integer
Dim TextLength As Integer
Dim TextFound As String = ""
Dim FileString As String = ""
Dim AllLines As String = ""
NewEbsFiles = "W:\IO\qebsfnam\pass2ebs"
OldEbsFiles = "C:\Expedite\gen\pass2ebs.txt"
If File.Exists(NewEbsFiles) = True Then
If File.Exists(OldEbsFiles) = True Then
File.Delete(OldEbsFiles)
End If
File.Copy(NewEbsFiles, OldEbsFiles)
'MsgBox("New EBS file (pass2ebs.txt) has been copied over to Expedite folder")
End If
Dim ebsFileReader As New StreamReader(OldEbsFiles)
Dim ProposalItem As String = ""
Do While ebsFileReader.Peek() <> -1
ProposalItem = ebsFileReader.ReadLine() & vbNewLine
TextLength = Len(Trim(ProposalItem))
p1 = InStr(ProposalItem, "/")
TextFound = LTrim(Microsoft.VisualBasic.Left(ProposalItem, 6))
If (TextFound = "ITEM01" And p1 > 0) Then
If Mid(ProposalItem, p1 - 3, 1) <> "." Then
ProposalItem = Microsoft.VisualBasic.Left(ProposalItem, p1 - 4) & "." & Microsoft.VisualBasic.Right(ProposalItem, TextLength - p1 + 4)
End If
End If
AllLines = AllLines & ProposalItem
Loop
Dim WriteEbsFiles As String = "C:\Expedite\pass2ebs.txt"
Dim ebsFileWriter As New StreamWriter(WriteEbsFiles)
ebsFileWriter.WriteLine(AllLines)
ebsFileWriter.Close()
ebsFileReader.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
System.Diagnostics.Process.Start("C:\Expedite\Gen.exe")
End Sub
End Class