Visual Basic

Do you want to know more?
WDevs.com - Member's Software Directories, Blogs, FTP, Mail and Forums

Function GoReadFileToString(ByVal lvFilePath As String) As String()
    If File.Exists(lvFilePath) = True Then
        Dim Index As Integer = 0
        Dim lvReadFileOut() As String
        Dim fsStream As New FileStream(lvFilePath, FileMode.Open, FileAccess.Read)
        Dim srReader As New StreamReader(fsStream)
        Do While srReader.Peek > 0
            lvReadFileOut(Index) = srReader.ReadLine()
            Replace(lvReadFileOut(Index), "d:\directory1", "")
            Application.DoEvents()
        Loop
        srReader.Close()
        Return (lvReadFileOut)
    End If
End Function

Private Sub ProcessFile(ByVal sourceFilePath As String, ByVal destFilePath As String)
    If File.Exists(lvFilePath) = True Then
        Dim lineToProcess As String
        Dim srcStream As New StreamReader(sourceFilePath)
        Dim destStream As New StreamWriter(destFilePath)
 
        Do While (srcStream.Peek >= 0)
            lineToProcess = srcStream.ReadLine()
            Replace(lineToProcess, "d:\directory1", "")
            destStream.WriteLine(lineToProcess)
        Loop
        srcStream.Close()
        destStream.Close()
    End If
End Function