App.Path [RESOLVED!]

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:

VB Code:

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!:wave:

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

VB Code:

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

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

Please post your code as you have it now.

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

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

And i was using this code marty:

VB Code:

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

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!