在 Intel Visual Fortran 中获取解决方案目录

根据您的其他评论，在我看来您可能对包含可执行文件的目录更感兴趣。如果您知道您的解决方案目录结构，您可以从中计算出解决方案的位置。

您分两步完成此操作。首先调用 Windows API 例程GetModuleHandle，NULL作为参数传递。这将返回当前可执行文件的句柄。然后传递这个句柄，该句柄GetModuleFileName将可执行文件的路径作为以 NUL 结尾的字符串返回。

如果您只想分离出路径，您可以使用英特尔库例程SPLITPATHQQ。

例子：

program whereami
use kernel32
use, intrinsic :: ISO_C_BINDING
implicit none

integer(HANDLE) :: h
character(MAX_PATH) :: f
integer(DWORD) :: ret


h = GetModuleHandle (NULL)
ret = GetModuleFileName (h,f,len(f))
print *, f(1:index(f,C_NULL_CHAR)-1)
end program whereami