Hmm nice way..
But i 
use..
len(app.path) > 3 then
app.path & "\filename.file"
else
app.path & "filename.file"
end 
if
Hmm But it works.
yours M.I.X

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Sorry Here is the complet code 
:-)
>>>Hmm nice way..
But i 
use..
If len(app.path) > 3 
then
app.path & 
"\filename.file"
Else
app.path & 
"filename.file"
End If
Hmm But it 
works.
yours M.I.X
 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Eric, you really shouldn't vote for 
yourself.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

dim AppPath as string
if 
RIGHT(App.Path,1)="\" then
AppPath=App.Path
else
AppPath=App.Path & "\"
END IF
OPEN 
AppPath & Filename FOR INPUT AS #1

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

sorry, i didn't vote for myself, one of 
my friends knows my password and he 
renames things and puts useless 
pictures as screenshots. i'll try not 
to let that happen again.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

M.I.X. - Your code works. The problem 
comes in if you put this into a 
function and just pass the path to it. 
Use Eric's code and you can pass a path 
from App.Path, or any method that will 
generate a path. I've seen some methods 
that will return a path with a 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

M.I.X. - Your code works. The problem 
comes in if you put this into a 
function and just pass the path to it. 
Use Eric's code and you can pass a path 
from App.Path, or any method that will 
generate a path. I've seen some methods 
that will return a path with a "\" and 
some that don't. (Bring VBA and 
VBScript into the situation and you'll 
run into this problem)
Eric's is a 
more reliable way.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

A better way would be:
Dim fso As New 
FileSystemObject
fso = 
CreateObject("Scripting.FileSystemObject
")
AppPath = fso.BuildPath(App.Path, 
filename)
MsgBox AppPath

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I like both all your ways, all work. 
I like M.I.X way somewhat more. But I 
used to use Eric's. ;)

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This won the contest????????????

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

It can be done this way 
too...
DirectoryPath = 
Replace(App.path & 
"\FileName","\\","\")
: )

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

when did i win?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hello, I've tried to paiste many of 
your code examples in my VISUAL BASIC 6 
application and none of them work.  All 
of the IF statements above turn RED in 
my Visual Basic code section.  Visual 
Basic doesn't accept it for some 
reason.  Shouldn't your codes be put in 
a PRIVATE SUB or something?  Can an IF 
statement just be put in the code all 
by itself?  I have a lot of statements 
like this: 
Picture1 = 
LoadPicture(App.Path & "\videos\" & 
"BG_VIDEOS.jpg")
The path statement 
above is in my FORM LOAD area.  I have 
many COMMAND BUTTONS that have path 
statements like:
Picture1 = 
LoadPicture(App.Path & "\" & 
"BG_BCC.jpg")
I need a PATH FIX so 
when I try running my program from a 
cdrom, it stops adding that EXTRA '\' 
in there.  It keeps searching for g:\\ 
not g:\
EXACTLY what is the code I 
should use that can be put at the 
beginning of my source code so ALL of 
my 100 or so path statements will 
work?
THANKS

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

A programmer by the name of DAVE TETENS 
wrote this for me.
FIRST, put the 
code below at the top of your 
FORM_LOAD:
Pth = App.Path
If 
Right(Pth, 1) = 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

A programmer by the name of DAVE TETENS 
wrote this for me.
FIRST, put the 
code below at the top of your 
FORM_LOAD:
Pth = App.Path
If 
Right(Pth, 1) = "\" Then
    Pth = 
Left(Pth, Len(Pth) - 1)
End If
Dave 
added this code below to the very top 
of my module code in my visual basic 6 
program.  I'm guessing you can also add 
this code to the very top of your MAIN 
FORM's code:
Option Explicit
Global 
Pth As String
Below is an example of 
one of my PATH statements:
Picture1 = 
LoadPicture(Pth & "\videos\" & 
"BG_VIDEOS.jpg")  
Notice the Pth in 
my path statement above.  It use to say 
App.Path, but I changed it to Pth 
instead.  You HAVE to change all of 
your App.Path to Pth to make this code 
work, BUT don't accidentally change the 
App.Path in the first main code I 
listed above that goes into your 
FORM_LOAD area.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

MY CODE ABOVE makes your program run 
even if it is stored in the root of a 
drive like C:\ or on a CDROM drive.  My 
program ran fine from my computer, but 
when I copied it to a cdr disk and 
tried running my program from the cdrom 
drive, I got a PATH NOT FOUND error 
cause and EXTRA \ was being added to my 
path statements.  MY CODE ABOVE fixes 
the problem.  I’ve tried all of 
the codes above mine, and none of them 
worked.  I think they don’t have 
ALL of the instructions to make them 
work perfect.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I usually use the following:
pth = 
iif(right(app.path,1) <> "/",app.path & 
"\" & "FileName.TXT",app.path & 
"FileName.TXT")
I use this because 
it is one line of code, it is clean and 
reliable.  Of course I also come from a 
C programming world, so I got used to 
it there.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

If Right(App.Path,1) <> "\" Then Tmp = 
"\"
MsgBox App.Path & Tmp

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason: