topic Re: GetFullPathName in Intel® Fortran Compiler

GetFullPathName

Nick2 — Sat, 13 Jan 2007 05:40:40 GMT

Hello,

I am trying to get a full path where the executable is located at run-time. So here's what I'm trying:

program main
use KERNEL32

CHARACTER*500 path
integer(LPSTR) path1
CHARACTER*200 filename
integer(DWORD) dum
path1=0
filename='WideString.exe'
dum = GetFullPathName(filename, 500, path, path1)

if(dum .eq. 0)then
dum=GetLastError()
print *, dum
endif

print *, path

end

'WideString.exe' is the name of the executable. Similar code works well in C++, but not in Fortran.

Any idea what I'm doing wrong or a better way to accomplish this?

I forgot the mention...GetFullPathName and GetLastError both return 0, and the variable path ends up being a blank string.

Re: GetFullPathName

Steven_L_Intel1 — Sat, 13 Jan 2007 05:49:42 GMT

You want:

filename='WideString.exe'C

You also need to either search for the trailing NUL in the return value or use the function return value for the length.

Re: GetFullPathName

Nick2 — Sat, 13 Jan 2007 07:11:19 GMT

Ah, thank you!

Only GetFullPathName returned the current path, rather than executable's path. Any better functions to accomplish this?

Re: GetFullPathName

Paul_Curtis — Sat, 13 Jan 2007 07:21:06 GMT

The routine you want is

INTEGER :: nc

CHARACTER(LEN=255) :: fpname

nc = GetModuleFileName(GetModuleHandle('MYPROG.EXE'C), fpname, LEN(fpname))

where you supply the name of your running executable and fpname is returned with the full UNC path.

Re: GetFullPathName

Steven_L_Intel1 — Sat, 13 Jan 2007 08:15:56 GMT

Even better, pass NULL to GetModuleHandle to get the handle to the running EXE, whatever its name is.

Re: GetFullPathName

Nick2 — Sat, 13 Jan 2007 08:51:43 GMT

Awesome! I love it how the function returns the number of characters in the path too!