| 查看: 669 | 回复: 5 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】Fortran程序中如何实现建立新目录
|
|||
|
我想请问各位大侠： 在C程序中有个mkdir（"./tmper'，S_IRWXU）来建立新目录，在fortran程序中如何实现这样的过程？ 谢谢 [ Last edited by lei0736 on 2008-11-4 at 22:06 ] |
回复此楼» 猜你喜欢
国自然面上和省基金B类撒花
已经有4人回复
-
华师大读博
已经有3人回复
-
急需审稿人！！！
已经有3人回复
-
申博/考博
已经有8人回复
-
一志愿A区211，22408 321求调剂
已经有8人回复
-
295分求调剂
已经有6人回复
-
一志愿中科大材料与化工，353分还有调剂学校吗
已经有13人回复
-
085600材料与化工调剂
已经有6人回复
-
期刊推荐
已经有5人回复
-
有没有接收比较快的sci期刊呀，最好在一个月之内的，研三孩子求毕业
已经有7人回复
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
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
quantumfang
至尊木虫 (职业作家)
小木虫中医研究院院长
- 应助: 0 (幼儿园)
- 金币: 31501.4
- 红花: 2
- 帖子: 3081
- 在线: 57.3小时
- 虫号: 299070
- 注册: 2006-11-20
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
5楼2008-11-05 22:06:23
5