| 查看: 743 | 回复: 5 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】Fortran程序中如何实现建立新目录
|
|||
|
我想请问各位大侠： 在C程序中有个mkdir（"./tmper'，S_IRWXU）来建立新目录，在fortran程序中如何实现这样的过程？ 谢谢 [ Last edited by lei0736 on 2008-11-4 at 22:06 ] |
回复此楼» 猜你喜欢
静等基金结果
已经有16人回复
-
filecode
已经有6人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有11人回复
-
关于Filecode分析方法
已经有3人回复
-
国自然结果
已经有8人回复
-
FileCode能看出啥？
已经有8人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有22人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有4人回复
-
8月时间戳变的，举个手。玩一下，释放压力
已经有13人回复
-
好奇怪的filecode
已经有5人回复
Hellen210.46
金虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 577.6
- 红花: 1
- 帖子: 311
- 在线: 53.8小时
- 虫号: 166445
- 注册: 2006-01-14
- 性别: MM
- 专业: 凝聚态物性 II ：电子结构
3楼2008-11-05 18:38:20
grant.tgb
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2734.1
- 帖子: 170
- 在线: 41.1小时
- 虫号: 425534
- 注册: 2007-07-27
- 性别: GG
- 专业: 金属材料的力学行为
2楼2008-11-05 16:44:41
grant.tgb
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2734.1
- 帖子: 170
- 在线: 41.1小时
- 虫号: 425534
- 注册: 2007-07-27
- 性别: GG
- 专业: 金属材料的力学行为
干脆给你编段程序吧
★ ★ ★ ★ ★
lei0736(金币+5,VIP+0):谢谢
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
quantumfang
至尊木虫 (职业作家)
小木虫中医研究院院长
- 应助: 0 (幼儿园)
- 金币: 32042.4
- 红花: 2
- 帖子: 3174
- 在线: 57.9小时
- 虫号: 299070
- 注册: 2006-11-20
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
5楼2008-11-05 22:06:23
