Anonymous

public text v1 · immutable

#2090687

·published 2011-10-17 05:55 UTC

        'Pull system names
        test = System.IO.Directory.GetCurrentDirectory
        fileName = "\config\stars.txt"
        myCSVReader = My.Computer.FileSystem.OpenTextFileReader(fileName)
        lineCount = -1
        Do While Not myCSVReader.EndOfStream
            lineCount = lineCount + 1
            myFieldInput = myCSVReader.ReadLine
            starNames(lineCount) = myFieldInput
        Loop