在Intel Visual Fortran项目中获取Visual Studio解决方案目录的方法

好问题！在Intel Fortran 2017 + VS2015的环境里，确实没法直接用Get_Environment_Variable拿到解决方案目录——因为VS默认不会把这个路径暴露成环境变量给Fortran程序。不过有几个靠谱的办法可以实现，我给你拆解一下：

方法1：通过VS预处理器宏传递（最推荐） #

VS本身自带$(SolutionDir)这个预定义宏，我们可以把它作为编译参数传给Fortran编译器，让代码直接拿到这个路径：

• 右键你的Fortran项目 → 属性 → 配置属性 → Fortran → Preprocessor → Preprocessor Definitions
• 添加一个自定义定义，比如 SOLUTION_DIR="$(SolutionDir)"（一定要加引号，避免路径含空格时出错）
• 在Fortran代码里直接使用这个宏：

PROGRAM GetSolutionDir
          IMPLICIT NONE
          CHARACTER(LEN=256) :: SolDir
          ! 直接用预定义的宏赋值
          SolDir = SOLUTION_DIR
          ! 打印时去掉末尾多余的空格和反斜杠（可选）
          PRINT *, "Solution Directory: ", TRIM(SolDir)
      END PROGRAM GetSolutionDir

这个方法的好处是编译时就把路径硬编码到程序里，运行时不需要依赖任何外部环境，简单又可靠。注意$(SolutionDir)末尾自带反斜杠，如果不需要可以用字符串处理函数去掉。

方法2：运行时通过Windows API回溯路径 #

如果需要在程序运行时动态获取（比如输出目录结构固定的情况），可以通过获取当前可执行文件的路径，再回溯到解决方案目录。这需要调用Windows的GetModuleFileName API：

• 确保代码中引入Intel Fortran的Windows API模块USE IFWIN
• 调用API获取EXE路径，再通过字符串处理回溯到解决方案目录：

PROGRAM GetSolutionDirRuntime
          USE IFWIN  ! 引入Intel Fortran的Windows API模块
          IMPLICIT NONE
          CHARACTER(LEN=256) :: ExePath, SolDir
          INTEGER :: PathLen, SlashPos

          ! 获取当前EXE的完整路径
          PathLen = GetModuleFileName(NULL_C, ExePath, LEN(ExePath))
          IF (PathLen == 0) THEN
              PRINT *, "Failed to get executable path"
              STOP
          END IF

          ! 假设EXE路径是 $(SolutionDir)\bin\Debug\your.exe，需要回溯两级
          ! 先找到最后一个反斜杠，去掉EXE文件名
          SlashPos = INDEX(ExePath, '\', BACK=.TRUE.)
          IF (SlashPos == 0) THEN
              PRINT *, "Invalid path format"
              STOP
          END IF
          ExePath = ExePath(1:SlashPos-1)
          ! 再找到上一个反斜杠，得到解决方案目录
          SlashPos = INDEX(ExePath, '\', BACK=.TRUE.)
          SolDir = ExePath(1:SlashPos)

          PRINT *, "Solution Directory (runtime): ", TRIM(SolDir)
      END PROGRAM GetSolutionDirRuntime

这个方法的缺点是依赖你的项目输出目录结构，如果后续调整了输出路径，代码里的回溯逻辑也要跟着改。

方法3：手动设置环境变量 #

你也可以在VS的调试配置里手动把$(SolutionDir)设为环境变量，然后用Get_Environment_Variable读取：

• 右键项目 → 属性 → 配置属性 → 调试 → 环境
• 添加一行：MY_SOLUTION_DIR=$(SolutionDir)
• 在Fortran代码里读取这个环境变量：

PROGRAM GetEnvSolDir
          IMPLICIT NONE
          CHARACTER(LEN=256) :: SolDir
          LOGICAL :: EnvExists

          CALL Get_Environment_Variable("MY_SOLUTION_DIR", SolDir, STATUS=EnvExists)
          IF (EnvExists) THEN
              PRINT *, "Solution Directory (env var): ", TRIM(SolDir)
          ELSE
              PRINT *, "Environment variable not found"
          END IF
      END PROGRAM GetEnvSolDir

注意：这个环境变量只在VS调试运行时有效，直接双击生成的EXE文件运行的话，这个变量是不存在的。

内容的提问来源于stack exchange，提问作者TrippLamb