opening a file that exists, but says it doesn't

[V Bradley]

Hi there,
I am a newbie working from the Visual Basic Programmers Workbook. I have
created a text file called Origin.txt but when I go to open it I keep
getting a "file does not exist" error, although it definitely does.
Any ideas?

Here is code:

Private Sub cmdInputFile_Cl ick()
Dim intYear As Integer
Dim intNSWScore As Integer
Dim intQLDScore As Integer

Me.Cls
'Use Dir to verify that the file exists:
If Dir("C:\Documen ts and Settings\Owner\ My
Documents\VBWor k\Expressions\O rigin.txt") = "" Then
MsgBox "File not found"
'Take a premature exit:
Exit Sub
End If
Open "C:\Documen ts and Settings\Owner\ My
Documents\VBWor k\Expressions\O rigin.txt" For Input As #1
Print "Year", "NSW", "QLD"
Do While Not EOF(1)
Input #1, intYear, intNSWScore, intQLDScore
'Print to the form:
Print intYear, intNSWScore, intQLDScore
Loop
Close #1
End Sub

[MooVBuff]

I tried it and it worked fine. I suspect the file you are looking for may
exist in a location other than the one you are expecting to find it. Place
the Origin.txt file in the same location as your application and adapt your
code to look for it there using App.Path.

"V Bradley" <vo*******@yaho o.com> wrote in message
news:20******** *************@n ews02.tsnz.net. ..

Hi there,
I am a newbie working from the Visual Basic Programmers Workbook. I have
created a text file called Origin.txt but when I go to open it I keep
getting a "file does not exist" error, although it definitely does.
Any ideas?

Here is code:

Private Sub cmdInputFile_Cl ick()
Dim intYear As Integer
Dim intNSWScore As Integer
Dim intQLDScore As Integer

Me.Cls
'Use Dir to verify that the file exists:
If Dir("C:\Documen ts and Settings\Owner\ My
Documents\VBWor k\Expressions\O rigin.txt") = "" Then
MsgBox "File not found"
'Take a premature exit:
Exit Sub
End If
Open "C:\Documen ts and Settings\Owner\ My
Documents\VBWor k\Expressions\O rigin.txt" For Input As #1
Print "Year", "NSW", "QLD"
Do While Not EOF(1)
Input #1, intYear, intNSWScore, intQLDScore
'Print to the form:
Print intYear, intNSWScore, intQLDScore
Loop
Close #1
End Sub