Read text file using split, save the info and use in sub VB

See more:

Visual-Studio

have a Text file with several different C:\ locations i need, the idea is to use the streamreader to read the text file, load each line into an array and then be able to use that specific array per line in the Sub routines to code.

the idea, is that if in the future the location of the C:\ changes, there is no need to go into the code, just modify the information on that txt file and that would be it...

What I have tried:

have tried several ways but no luck...

text file info looks like

;C:\receiveddata\d1.html
;C:\receiveddata\d2.html
;C:\displaydata\d1.html
;C:\displaydata\d2.html

I also tried putting the ; at the en andd nothing and putting the text in "" and nothing

the idea is to modify the setup.txt file and that updates the new location to be used in the program...

here is the code .... i tried the following and no luck

Public Class Form1

Dim urls(10) As String

Public Sub Setup()
Dim sr As New StreamReader("C:\Setup\Setup.txt")
Dim line As String
Dim token() As String
Dim i As Integer = 0

Do Until sr.Peek = -1
'grab one line at a time from the txt
line = sr.ReadLine()
'place into an array
token = Split(line, ";")
urls(i) = token(0)
'increment loop for i
i = i + 1
Loop
sr.Close()
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Call Setup() 'load setup for each url in project
Call displayfolderlog() 'check if folders exist
Call MoveFiles()
End Sub

Public Sub MoveFiles()
Dim D2Source = "C:\receiveddata\d2.html";
Dim D2file = "C:\displaydata\d2.html";

'FOR D1 FILE
If My.Computer.FileSystem.FileExists(urls(1)) = True Then
My.Computer.FileSystem.MoveFile(urls(1), urls(3))
End If

'FOR D2 FILE
If My.Computer.FileSystem.FileExists(D2Source) = True Then
My.Computer.FileSystem.MoveFile(D2Source, D2file)
End If

End Sub

End Class

it only moves the D2 file but the D1 no....