ReadFile the good file

[SPH]

hi,
in a software developed in PB (obviously), I say this:

Code: Select all

ReadFile(7, "f:\tmp\000.txt")

But I would like to find the file "000.txt" where my EXE is and not at the hard path.
What magic instruction do you suggest?

Thx

[matalog]

GetCurrentDirectory() will return the directory that the .exe is held in.

Code: Select all

fold$= GetCurrentDirectory()
file$= "000.txt"
Debug fold$+file$
Readfile(7,fold$+file$)

Or depending on how you are using the program, you may want to:

Code: Select all

   
     Temp$ = ProgramParameter()
    SetCurrentDirectory(GetPathPart(temp$))

  

[Kiffi]

GetCurrentDirectory() will return the directory that the .exe is held in.

No!

better use:

Code: Select all

GetPathPart(ProgramFilename())

[SPH]

Big Thx To You !!

[matalog]

GetCurrentDirectory() will return the directory that the .exe is held in.

No!

better use:

Code: Select all

GetPathPart(ProgramFilename())

Yes. This is a better answer .