| 查看: 700 | 回复: 5 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】Fortran程序中如何实现建立新目录
|
|||
|
我想请问各位大侠： 在C程序中有个mkdir（"./tmper'，S_IRWXU）来建立新目录，在fortran程序中如何实现这样的过程？ 谢谢 [ Last edited by lei0736 on 2008-11-4 at 22:06 ] |
回复此楼» 猜你喜欢
提交了我也来说说感想
已经有9人回复
-
投稿求助，期刊
已经有4人回复
-
评审有感
已经有26人回复
-
今年审到国自然15份，谈谈感受
已经有22人回复
-
Sci. Bull. 悲剧经验
已经有8人回复
-
河北省自然科学基金
已经有4人回复
-
投MDPI的三个期刊都被桌拒
已经有4人回复
-
献血感触
已经有12人回复
-
云南大学材料与能源学院解琳课题组钙钛矿博士招生
已经有6人回复
-
反应很差，大量原料没有反应
已经有8人回复
grant.tgb
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2734.1
- 帖子: 170
- 在线: 41.1小时
- 虫号: 425534
- 注册: 2007-07-27
- 性别: GG
- 专业: 金属材料的力学行为
2楼2008-11-05 16:44:41
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
- 专业: 金属材料的力学行为
干脆给你编段程序吧
★ ★ ★ ★ ★
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 (幼儿园)
- 金币: 31642.4
- 红花: 2
- 帖子: 3106
- 在线: 57.6小时
- 虫号: 299070
- 注册: 2006-11-20
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
5楼2008-11-05 22:06:23
6楼2008-11-11 19:47:10
5