| 查看: 659 | 回复: 5 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】Fortran程序中如何实现建立新目录
|
|||
|
我想请问各位大侠： 在C程序中有个mkdir（"./tmper'，S_IRWXU）来建立新目录，在fortran程序中如何实现这样的过程？ 谢谢 [ Last edited by lei0736 on 2008-11-4 at 22:06 ] |
回复此楼» 猜你喜欢
295求调剂
已经有3人回复
-
一志愿C9的化学工程（085602） 340分，感觉校内调剂无望，求调剂
已经有9人回复
-
070300化学求调剂
已经有16人回复
-
363求调剂
已经有4人回复
-
283分求调剂
已经有3人回复
-
材料化工306分找合适调剂
已经有7人回复
-
一志愿北京化工085600 310分求调剂
已经有4人回复
-
292求调剂
已经有9人回复
-
调剂
已经有4人回复
-
一志愿9材料学硕297已过六级求调剂推荐
已经有5人回复
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 (幼儿园)
- 金币: 31419.4
- 红花: 2
- 帖子: 3067
- 在线: 57.3小时
- 虫号: 299070
- 注册: 2006-11-20
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
5楼2008-11-05 22:06:23
6楼2008-11-11 19:47:10
