App.Path [RESOLVED!]

[Madboy]

Ive got a listbox, so when i click on a certain item, i want to open a text file into my textbox. The text files are in a extra folder called Tutorials. Here is what ive been trying to use to open the file:

Open App.Path & "\Tutorials\Common Dialog.txt" For Binary As #1
Dim scriptText As String: scriptText = Space(LOF(fnum))
Get #1, , scriptText
txtCode.Text = scriptText
Close #fnum

But that doesnt work. I even tried changing For Binary to Input. But it doenst load anything. Any ideas?

THANKS!

[BeholderOf]

i wouldnt use binary for a text file, try this:

dim ffile as Integer
dim strData as String
ffile = FreeFile
 
Open App.Path & "\Tutorials\Common Dialog.txt" For Input As #ffile
Do until eof(#ffile)
Line Input #ffile, strData
txtCode.Text = txtCode.text & strData & vbcrlf 
DoEvents
Loop
Close #ffile

[Madboy]

Thanks, but it attempts to load the file but doesnt. The scrollbars go funny and my app locks up

[MartinLiss]

Please post your code as you have it now.

[BuggyProgrammer]

open App.Path & "\Tutorials\Common Dialog.txt" For Input as #1
Dim scriptText As String
scriptText = input$(lof(1),1)
close #1

txtCode.txt=scripttext

[Madboy]

It doesnt do anything buggy programmer. Have i got the App.Path code right?

And i was using this code marty:

Open App.Path & "\Tutorials\Common Dialog.txt" For Binary As #1
Dim scriptText As String: scriptText = Space(LOF(fnum))
Get #1, , scriptText
txtCode.Text = scriptText
Close #fnum

[Madboy]

Silly me. I have a seperate folder called My Programs, i put the tutorials in there, instead of in my Projects folder. It works great now.

THANKS!