Fortran Coder

查看: 22060|回复: 9
打印 上一主题 下一主题

[文件读写] fortran 判断文件夹是否存在

[复制链接]

7

帖子

2

主题

0

精华

入门

F 币
32 元
贡献
19 点
跳转到指定楼层
楼主
发表于 2014-5-7 15:27:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我知道用系统命令mkdir可以建立新的文件夹,但是前提是这个文件夹不存在,那么fortran中能否有办法知道某个文件或者文件夹是否存在呢?我知道调用系统命令,dir 将某个文件夹中的所有文件都写入到一个文件中,然后循环读取判断我们要找的文件或者文件夹在不在其中,有没有更方便的办法,毕竟这个办法会建立一个新的文本文件。
分享到:  微信微信
收藏收藏1 点赞点赞 点踩点踩

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

沙发
发表于 2014-5-7 16:04:48 | 只看该作者
请参考下面的解答,简而言之ifort有专门的扩展,gfortran就不太好处理了
http://stackoverflow.com/questio ... ctory-exists-or-not
https://software.intel.com/sites ... 40-EE405C5E1213.htm

7

帖子

2

主题

0

精华

入门

F 币
32 元
贡献
19 点
板凳
 楼主| 发表于 2014-5-7 17:30:46 | 只看该作者
我用的是intel fortran  请问是那种?我对这个完全不了解

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
地板
发表于 2014-5-7 17:58:17 来自移动端 | 只看该作者
就是ifort
回复

使用道具 举报

7

帖子

2

主题

0

精华

入门

F 币
32 元
贡献
19 点
5#
 楼主| 发表于 2014-5-7 18:13:50 | 只看该作者

inquire(file='e:\test\total.txt',exist=i_exist)
我这么写的  为什么不管total.txt是否存在i_exist总是f?

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

6#
发表于 2014-5-7 19:30:38 | 只看该作者
如果是文件夹,请用
inquire(DIRECTORY='C:\windows',exist=i_exist)

7

帖子

2

主题

0

精华

入门

F 币
32 元
贡献
19 点
7#
 楼主| 发表于 2014-5-8 04:25:42 | 只看该作者
fcode 发表于 2014-5-7 19:30
如果是文件夹,请用
inquire(DIRECTORY='C:\windows',exist=i_exist)

谢谢您的回答  directory对于文件夹确实有用  但是之前用的inquire(file='e:\test\total.txt',exist=i_exist)不管total.txt是否存在i_exist总是f

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
8#
发表于 2014-5-8 09:48:18 来自移动端 | 只看该作者
检查路径是否正确?是否隐藏了扩展名?是否文件被占用,杀毒软件或权限保护?

7

帖子

2

主题

0

精华

入门

F 币
32 元
贡献
19 点
9#
 楼主| 发表于 2014-5-8 09:58:22 | 只看该作者
vvt 发表于 2014-5-8 09:48
检查路径是否正确?是否隐藏了扩展名?是否文件被占用,杀毒软件或权限保护? ...

问题解决啦~~~谢谢!!!!

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

10#
发表于 2014-5-8 11:05:41 | 只看该作者
怎么解决的?说出来大家分享
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 22:17

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表