应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » Fortran如何建立文件夹并在文件夹中写入文件？
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 6397  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

yingmo01

木虫 (小有名气)

[求助] Fortran如何建立文件夹并在文件夹中写入文件？ 已有1人参与

我想在Fortran程序中实现以下几个步骤

（1）建立  [文件夹1], [文件夹2]，[文件夹3]
（2）在  [文件夹1], [文件夹2]，[文件夹3]中分别写入2000 个文件，这些文件的格式相同，只是存储的名称不同，比如fort.22到fort.2022
         


         这样既便于存储，又可以防止文件混淆。



         跪求大神指点！！！！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
我
1楼 2016-12-22 22:11:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

2014092101
。

发自小木虫Android客户端
7楼2016-12-24 07:23:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

Noch

金虫 (著名写手)

壮士
出钱悬赏吧！重赏之下必有勇夫

发自小木虫IOS客户端
赞一下 回复此楼
等待就是浪费青春！！！
2楼2016-12-23 08:46:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1014511134

专家顾问 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
看下书，很容易就解决了。。。。
赞一下 回复此楼
3楼2016-12-23 09:57:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
yingmo01: 金币+30, ★★★★★最佳答案 2016-12-24 09:07:26
program creat_doc
    use ifport
    implicit none
    integer i,j,k
    character( len=56 ) temp,name,temp1
    integer istatus1,istatus2,istatus3,istatus4,istatus5
    name='storage'
    istatus1=system( "Md "//trim( name ) ) !建立文件夹
    istatus2=CHDIR( trim( name ) ) !定位文件夹
    k=0
    do i=1,3 !//文件夹有多少个，可自行修改（这里的文件夹有3个）
        write( temp,* ) i
        temp=adjustl( temp ) !//左对齐，因为默认i是右对齐的
        istatus3=system( "Md "//trim( temp ) ) !在此路径上再建一层文件夹
        istatus4=CHDIR(trim(temp)) !//定位到新一层的文件夹
        do j=1+k,10+k !fort文件有多少个（这里是1个文件夹里存10个，名称分别叫fort1,fort2……fort10）
            write( temp1,* ) j
            open( 11+j,file='fort'//adjustl ( trim ( temp1 ) ) ) !//写入你想要的文件名
            close( 11+j )
        end do
        k=k+10
        istatus5=CHDIR( ".." ) !//退出本层目录
    end do
    end program creat_doc
相关说明已经写在注释中了。我是在IVF+VS编译器上，windows7系统上运行是没问题的，不知道LZ是什么操作系统，用的是什么编译器？希望下次说明一下。
赞一下(2人) 回复此楼
Chemistry
4楼2016-12-23 20:11:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料调剂 +7 一样YWY 2026-04-02 7/350 2026-04-02 11:40 by 星空星月
[考研] 材料科学与工程调剂 +18 深V宿舍吧 2026-03-30 19/950 2026-04-02 10:28 by sanrepian
[考研] 085600，材料与化工321分调剂 +8 大馋小子 2026-03-27 10/500 2026-04-02 10:15 by kaiyanjie
[考研] 考研调剂0702 +3 梅子味晚霞 2026-03-28 3/150 2026-04-02 10:10 by jp9609
[考研] 求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分 +11 @taotao 2026-03-29 11/550 2026-04-02 10:04 by realme321
[考研] 一志愿厦门大学化学工程（专硕）-数二英二406分-求调剂 +5 厦大化工 2026-04-01 5/250 2026-04-02 10:03 by jp9609
[考研] 275学硕081000服从调剂到其他专业，保不住本专业了 +6 一只小小水牛 2026-04-02 7/350 2026-04-02 09:53 by zhyzzh
[考研] 270调剂 +7 maxjxbsk 2026-04-02 7/350 2026-04-02 09:50 by yulian1987
[考研] 【求调剂】新能源材料本科，一志愿211，初试321 +6 求调剂学校， 2026-04-02 6/300 2026-04-02 09:41 by 晴空210210
[考研] 310求调剂 +11 争取九点睡 2026-03-30 11/550 2026-04-02 09:09 by sanrepian
[考研] 英一数一408，总分284，二战真诚求调剂 +12 12.27 2026-03-30 14/700 2026-04-02 00:18 by 欣喜777
[考研] 275求调剂 +12 waltzh 2026-04-01 12/600 2026-04-01 21:44 by chyhaha
[考研] 调剂 +3 好好读书。 2026-04-01 3/150 2026-04-01 17:06 by zhouyuwinner
[考研] 285求调剂 +7 AZMK 2026-03-30 13/650 2026-04-01 17:00 by 七度不信任
[考研] 环境工程调剂 +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
[考研] 318一志愿吉林大学生物与医药 求调剂 +6 笃行致远. 2026-03-28 6/300 2026-04-01 09:28 by oooqiao
[考研] 349求调剂 +6 zwjjjjjj 2026-03-31 6/300 2026-04-01 09:16 by JourneyLucky
[考研] 调剂申请 +8 张张张张zy 2026-03-31 9/450 2026-04-01 08:29 by zjbkx
[考研] 335求调剂 +3 321* 2026-03-31 4/200 2026-04-01 00:00 by 321*
[考研] 抱歉 +4 田洪有 2026-03-30 4/200 2026-03-30 21:26 by mumin1990
信息提示
关闭
请填处理意见
关闭