ATTN: VB Guru's!

[NeoStarO1]

Hello VB Guru's,

Im too lazy to find the old Oh Vass! The VB Guru Thread so starting new one!

Anyhow doing a code here and im stumped. I'll put code up then explain where im stumped at. This is to do with the Loop and DoWhile

Private Sub cmdDisplay_Click()
    Dim passWord As String, info As String
    If UCase(txtName.Text) = "SECRET.TXT" Then
        passWord = ""
        Do While passWord <> "SHAZAM"
            passWord = InputBox("What is the password?")
            passWord = UCase(passWord)
        Loop
    End If
    Open txtName.Text For Input As #1
    Input #1, info
    picItem.Cls
    picItem.Print info
    Close #1
End Sub

Where I have the code in yellow, this too me is asking to open a file on my disk to get the info it needs. I have set up file in hard drive with the txtName.txt and then wrote that line as

Open F:\CIS122\txtName.txt For Input As #1

But it keeps saying error and hightlight the : symbol and so i left it to just exactly how the book has the code written as the first code listed here and I am stumped at why im getting the erro message.
Error message with first code listed: Path/File Error
Error message changing line to the second code listed here: Comple Error expected As But if i try to run it a second time it says syntax error.

Any suggestions?

NeoStar
____________________________________________
3 more week till term is finished and counting! Phew!

[strangerstill]

The Open statement takes as its first argument a string which should be the filename of the file to open.

e.g. Open "F:\CIS122\txtName.txt" For Input As #1

The quotes (or lack of) are why you're getting the error!

[NeoStarO1]

Still No Go

[qball]

line o' code is blue in my browser...

Quote:

Open "F:\CIS122\txtName.txt" For Input As #1

Do you have a file named 'txtName.txt'? thus, sumtin like:

Open "F:\CIS122\" + txtName.txt For Input As #1

(or however you concat a string in VB)

[PonzSpyder]

Quote:

(or however you concat a string in VB)

Actually I would use the & symbol instead of +

Open "F:\CIS122\" & txtName.txt For Input As #1

'This is considering that txtName.txt is the name of a text box where it asks you what the name of the file you want to open is, I think...

Is that any help Neo?

[NeoStarO1]

Thank you for the suggestions, I have tired those and with the help of Vass online we were able to find the problem. apparently the book doesn't teach you to type in the full path of the file you are looking for. Geezzzz, I said it defeated the purpose and said well nto really cause normally you have a browse for file button but im not to that point yet.

Once again thank you all VB Guru's!!!!

Thanks Vass!!!


NeoStar

[PonzSpyder]

Once again, I am glad to see that you solved one of your VB problems Keep it up Neo!

[vass0922]

Thanks all for your help as well
My connection has been suckin' all day
Need to get my roommate to call Cox and tell 'em off for crappy connection :P lol

[^hyd^]

might already know this but oh well...

if your readin a file from the folder of the application, you can use app.Path & "\filename.txt". But, if your app is on a root drive (C:, D: etc) app.Path will return a trailing "\". So you gotta watch for this!

or here's my little modification on app.Path:

'Modified app.path, normal app.Path only returns a trailing "\" when called from a
'root drive, not when in a directory. This function always returns a trailing "\".
Function MyAppPath() As String
    MyAppPath = IIf((Right(App.Path, 1) <> "\"), App.Path & "\", App.Path)
End Function

Then just use MyAppPath & "filename.txt" and fergetabout the darn "\" heheh
feel free to use and moify if u want! Could easily change it to accept the filename as a parameter and return the whole path instead...

cyas!

[vass0922]

hyd, just FYI
app.path doesn't work in .NET if I remember right so keep an eye out for it

There's an equivalent, but the app object no longer works :/