查询文件夹是否存在

最新推荐文章于 2024-07-23 22:52:31 发布

地球屋里老师

最新推荐文章于 2024-07-23 22:52:31 发布

阅读量2.6k

点赞数 4

文章标签： fortran

本文链接：https://blog.youkuaiyun.com/lixingwang0913/article/details/119697962

版权

这篇博客介绍了如何在Fortran中检查文件夹是否存在，包括gfortran和Intel Fortran编译器的不同方法。由于Fortran标准不直接支持查询文件夹，文章提供了一种利用标准语法创建临时文件来判断的通用方法，并强调了这种方法的可移植性和潜在限制。此外，还提供了一个查询文件夹存在的函数示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Fortran标准提供了inquire函数查询文件的状态，但并未提供查询文件夹是否存在的功能，部分编译器会额外提供某些扩展来实现。gfortran将文件夹同样视为文件，因此可通过inquire函数的file参数查询(经测试，linux和win均可)：

program test_gfortran
implicit none
logical isExist
!查询文件夹ab是否存在
inquire(file='ab',exist=isExist)
print*,isExist
end program

intel fortran编译器(ivf)为inquire函数提供了directory参数用于查询文件夹状态(编译器扩展功能，非标准用法)：

program test_ivf
implicit none
logical isExist
!查询文件夹ab是否存在
inquire(directory='ab',exist=isExist)
print*,isExist
end program

为了增强代码的可移植性，这里给出一个查询文件夹是否存在的函数。该函数全部由fortran标准语法写成，其思路是强制在指定文件夹下建立新文件，通过是否操作成功来判断文件夹是否存在。需要注意，使用该函数时需要确保用户拥有指定路径下的写权限，否则判断结果可能有误(话说回来，如果没有写权限，判断文件夹是否存在也就没啥意义)。

function inquireDIR(dir) result(res)
implicit none
character(*), intent(in):: dir
character(*), parameter:: fn ='/f.f' !文件名随意
logical res
integer i, u
inquire(file=trim(dir)//fn,exist=res) 
if(res) return
u = -huge(u)
open(newunit=u,file=trim(dir)//fn,iostat=i) 
if(i==0) res = .true.
close(u,status='delete')
end function

program Test
implicit none
logical,external::inquireDIR
print*,inquireDIR('ab')
end program Test