24小时热门版块排行榜    

查看: 741  |  回复: 5
当前主题已经存档。

jasonyang

银虫 (小有名气)

[交流] 【求助】Fortran程序中如何实现建立新目录

我想请问各位大侠:

在C程序中有个mkdir("./tmper',S_IRWXU)来建立新目录,在fortran程序中如何实现这样的过程?

谢谢

[ Last edited by lei0736 on 2008-11-4 at 22:06 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

grant.tgb

木虫 (小有名气)

用SYSTEM中的Md


灯塔守望者(金币+1,VIP+0):欢迎再来小木虫
命令为大致: System("Md "//Trim(NewFolderName))
2楼2008-11-05 16:44:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Hellen210.46

金虫 (正式写手)

不太明白,不过我在Linux下安装fortran编译器,用的是mkdir建的目录,不知和你问的相关不
做学问很苦,比coffee还苦。不过,总会是先苦后甜的,加油吧!
3楼2008-11-05 18:38:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

grant.tgb

木虫 (小有名气)

干脆给你编段程序吧

★ ★ ★ ★ ★
lei0736(金币+5,VIP+0):谢谢
program NewFolderCreating
USE DFPORT
integer istatus1,istatus2,istatus3,istatus4
character*256 NewFolderName1,NewFolderName2
istatus1=CHDIR('E:\xxx') ! 定位到e盘的xxx目录,或换成你想创建文件夹的目录
Read(*,*) NewFolderName1 ! 请输入一个新文件夹名称,比如yyy
Read(*,* ) NewFolderName2 ! 请再输入一个新文件夹名称,比如zzz,仅为了举例而已,按此法可一层一层创建目录
istatus2=System("Md "//Trim(NewFolderName1)) !建第一层文件夹
istatus3=CHDIR(Trim(NewFolderName1)) ! 定位到E:\xxx\yyy
istatus4=System("Md "//Trim(NewFolderName2)) !在E:\xxx\yyy目录下建第二层文件夹
end
4楼2008-11-05 21:47:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

quantumfang

至尊木虫 (职业作家)

小木虫中医研究院院长

★ ★ ★
lei0736(金币+3,VIP+0):谢谢
引用回帖:
Originally posted by Hellen210.46 at 2008-11-5 18:38:
不太明白,不过我在Linux下安装fortran编译器,用的是mkdir建的目录,不知和你问的相关不

linux下call system是一个办法

        call system("mkdir aaa"

例子:
program test

implicit none
        call system("mkdir aaa"
stop
end program test
5楼2008-11-05 22:06:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jasonyang

银虫 (小有名气)

谢谢

谢谢大伙的鼎力赐教
6楼2008-11-11 19:47:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jasonyang 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 静等基金结果 +3 gjjjzhong 2026-08-10 8/400 2026-08-10 15:49 by gjjjzhong
[基金申请] 关于Filecode分析方法 +3 majunge000 2026-08-10 3/150 2026-08-10 15:46 by lch2012
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] FileCode能看出啥? +4 要乐观耀哥 2026-08-10 8/400 2026-08-10 15:02 by 天神眷顾
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +4 布布和一二 2026-08-10 4/200 2026-08-10 14:50 by 医学老男孩
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +6 家与远方 2026-08-10 9/450 2026-08-10 14:29 by 爱看书的可乐
[基金申请] 好奇怪的filecode +4 布布和一二 2026-08-08 5/250 2026-08-10 14:20 by 冰心玉壶晴
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +10 yufeiwaner 2026-08-09 10/500 2026-08-10 13:44 by cdutwml
[基金申请] 关于代码变化问题,想知道的进来 +16 且听虎啸 2026-08-07 23/1150 2026-08-10 12:35 by majunge000
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于豆爷回答的JTJC与%2F数量 +5 yang182083 2026-08-06 7/350 2026-08-08 18:29 by zhanghaozhu
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 基金中了 +14 laoda193707 2026-08-06 14/700 2026-08-08 00:23 by 实验小白ha
[基金申请] 听说今天filecode变了 +24 布布和一二 2026-08-06 47/2350 2026-08-07 16:02 by zhiyanjiang
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 有没有H口的?有收到消息的吗? +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
信息提示
请填处理意见