Looping through a TXT to grab case num

[txgeekgirl1]

I have a single column txt with seperator and a carriage return. Here - msgbox(s) is return the name of the file, not the first line inside the txt. Can anyone tell what I messed up?

 Dim myRootpath As String = "\\backupcenter\PDF_Archives$\MedRecords\"
    Dim myTemplatePath As String = "\\rbas\e$\EMR\Templates\"
    Dim mySource As String = "MHADLive" 'change as needed for conversions MHADLive, MHCHLive, MRA
    Dim PatList As String = "\\rbas\outbox\2818\mhchCur.txt" 'change as needed mhadCur. mhchCur, mraCur"
    Dim PatientCB As String

    Sub Main()

        Dim str As String() = PatList.Split(New [Char]() {CChar(vbCrLf)})
        For Each s As String In str
            MsgBox(s)
        Next

 

[MrDataGuy]

It looks to me that the code is spliting the name of the file!
No where do I see code to open the file and read the contents.


Lion Crest Software Services
Anthony L. Testi
President

http://www.LionCrestSoftwareServices.com

 

[txgeekgirl1]

I got an answer - here it is.

Dim Lines = IO.File.ReadAllLines(PatList)

For Row As Integer = 0 To Lines.Count - 1
PatientCB = Lines(Row)