Question

Fortran中inquire查询txt文件什么会显示文件不存在,文件在桌面上啊

是不是要把文件放到指定文件夹里才能查询的到？

Answer 1

① 文件要么和执行文件同一目录，要么在系统路径上，要么你需要指定；

② 如果你的Fortran执行文件不在桌面上，你需要指定桌面文件所在的路径；桌面也是一个特殊的文件夹（路径），在系统环境变量%userprofile%\desktop中。 Fortran中用通过getenv这个函数获得。

③ 演示程序：

program getenv_demo
    character(len=255) :: userprofile_path, desktop_path, file_name
    logical :: does_file_exist

    file_name = 'test.txt'
    call getenv("userprofile", userprofile_path)
    desktop_path = userprofile_path(:len_trim(userprofile_path))//'\'//'desktop'
    write(*,*) trim(desktop_path)
    file_name = desktop_path(:len_trim(desktop_path))//'\'//file_name
    write(*,*) trim(file_name)
    inquire(file=trim(file_name), exist=does_file_exist)
    if (does_file_exist) then
        write(*,*), 'File exists!'
    else
        write(*,*), 'Ooops,~'
    end if    
end program getenv_demo

④ 运行：

 C:\Users\current_login_user_name\desktop
 C:\Users\current_login_user_name\desktop\test.bat
 File exists!