reading text files in Access 2

[techsupport3977]

How can I have the attached code read only the second line of the text file. This only seems to read the first line.

Dim strTextFromFile As String
Open "C:\Program Files\QM\QMD\flux.qma" For Input As #1
     Line Input #1, strTextFromFile
    
Close #1

 

[RoyVidar]

Read two lines, and the last line read, will probably contain the second line

[tt]Dim strTextFromFile As String
dim intFree as integer
intFree = FreeFile()
Open "C:\Program Files\QM\QMD\flux.qma" For Input As #intFree
Line Input #intFree, strTextFromFile
Line Input #intFree, strTextFromFile

Close #intFree[/tt]

- or use a loop

[tt]Do While Not EOF(intFree)
Line Input #intFree, strTextFromFile
' do something with the info...
Loop[/tt]

Roy-Vidar