saving record score automatically

[vbsslink]

I have some games where I save the record score automatically when the user has beat it. My code is as follows:
Private Function BringinRS()
On Error GoTo SetRS
Open "C:\My Documents\Chris Games\Quad2RS.txt" For Input As #1
Input #1, RS
Close #1
Exit Function
SetRS:
RS = 0
Open "C:\My Documents\Chris Games\Quad2RS.txt" For Output As #1
Print #1, RS
Close #1
End Function
Private Function SaveRS()
Open "C:\My Documents\Chris Games\Quad2RS.txt" For Output As #1
Print #1, S
Close #1
End Function
If there is no record score yet, then I set it to 0. When they beat it, the program goes to SaveRS. On some PC's this works fine, like on mine Windows ME. On some, like Windows 98 and XP, when they run the executable of my game, there is a path error. I don't know what to do different so I can save the record score without errors. How else can I do this?

vbsslink

[jemidiah]

(Like in my other post) use App.Path instead of hardcoding it

Ex:

Private Function BringinRS()
On Error GoTo SetRS
Open App.Path & "\Quad2RS.txt" For Input As #1
    Input #1, RS
Close #1
Exit Function
 
SetRS:
RS = 0
Open App.Path & "\Quad2RS.txt" For Output As #1
    Print #1, RS
Close #1
End Function
 
Private Function SaveRS()
Open App.Path & "\Quad2RS.txt" For Output As #1
    Print #1, S
Close #1
End Function

[vbsslink]

Thanks jemidiah. The app.path works fine on my PC.

vbsslink

[jemidiah]

Any time