How do i open a text file as input that may be in two different locations?

[gobblegob]

Hello,
I am trying to use a text file as input but it could be in two locations.
for example :

Open "c:\mytext.txt" For Input As #1
While Not EOF(1)
Line Input #1, temp$
alltext$ = alltext$ & temp$ & vbCrLf
Wend
Label1.Caption = alltext$
Close #1

but the text file might also be in c:\program files\mytext\mytext.txt

___VB6___

Any help will be much appreciated.
Thankyou Gobblegob.

[kadghar]

Hello,
I am trying to use a text file as input but it could be in two locations.
for example :
...
Any help will be much appreciated.
Thankyou Gobblegob.

use a string,
then just change it, you can use an input box, for example:

dim Str1 as string
str1=inputbox("write here the path and filename")
Open Str1 For Input As #1

HTH

[gobblegob]

use a string,
then just change it, you can use an input box, for example:

dim Str1 as string
str1=inputbox("write here the path and filename")
Open Str1 For Input As #1

HTH

Thanks for your help kadghar,

But is there a way of looking for the file in the other possible location without user input?

Thanks Gobblegob.

[kadghar]

Thanks for your help kadghar,

But is there a way of looking for the file in the other possible location without user input?

Thanks Gobblegob.

yeap, there are many ways, the fastest will be with an error handler, so if you try to open a file that doesnt exist, it'll cause an error and try to open the other one.

on error goto NotHere
str1 = "c:\firstlocation.txt"
open str1 '...
'...
exit sub
NotHere:
on error goto 0 'in case you dont find the 2nd file you dont enter a loop
str1="c:\secondlocation.txt"
open str1 '...
'...
end sub

but if you want it to be a better code, i recomend you to use a DIR to check if the file exists before trying to open it
HTH

[gobblegob]

yeap, there are many ways, the fastest will be with an error handler, so if you try to open a file that doesnt exist, it'll cause an error and try to open the other one.

on error goto NotHere
str1 = "c:\firstlocation.txt"
open str1 '...
'...
exit sub
NotHere:
on error goto 0 'in case you dont find the 2nd file you dont enter a loop
str1="c:\secondlocation.txt"
open str1 '...
'...
end sub

but if you want it to be a better code, i recomend you to use a DIR to check if the file exists before trying to open it
HTH

Thankyou So Much Kadghar,
I got it to work and and i learned about error handling :)

Thanks again mate.
Gobblegob.

[kadghar]

Thankyou So Much Kadghar,
I got it to work and and i learned about error handling :)

Thanks again mate.
Gobblegob.

Anytime,
But as i told you, this is some kind of "lazy coding". Searching the file first will be the "correct" way to do it.