在一个文件夹中再建立5个文件夹，并在这5个文件夹中放入...

978142355 · 发表于 2016-11-22 20:13:59

如题。想在某个目录下创建名称叫“0.05”的文件夹，并在此文件夹下再创建5个文件夹，在这5个文件夹中分别写入5个叫data的文件。代码如下：

[Fortran] 纯文本查看 复制代码

    program example
    use ifport
    implicit none
    integer i
    character(len=56) temp,name
    integer istatus1,istatus2,istatus3,istatus4,istatus5
    name='0.05'
    istatus1=system("Md "//trim(name)) !建立文件夹
    
    do i=1,5
        write(temp,*) i
        istatus2=CHDIR(trim(name)) !定位到上述建立的文件夹的路径
        istatus3=system("Md "//trim(temp)) !在此路径上再建一层文件夹
        istatus4=CHDIR(trim(temp)) !定位到新一层的文件夹
        open(11,file='data')
        write(11,*) i
        
        istatus5=CHDIR("..")
        close(11)
    end do
    read(*,*)
    end program example

然而运行后，却变成了图1所示的问题，即名称叫“0.05”的文件夹下的5个文件夹建成了，但是data文件没有分别放在这5个文件夹中。请教各位，该如何修改？谢谢大家。

fcode · 发表于 2016-11-22 20:26:45

见下代码的 !// 注释

[Fortran] 纯文本查看 复制代码

program example
use ifport
implicit none
integer i
character(len=56) temp,name
integer istatus1,istatus2,istatus3,istatus4,istatus5
name='0.05'
istatus1=system("Md "//trim(name)) !建立文件夹
istatus2=CHDIR(trim(name)) !//放到循环外面
do i=1,5
    write(temp,*) i
    temp=adjustl(temp) !//左对齐
    istatus3=system("Md "//trim(temp)) !在此路径上再建一层文件夹
    istatus4=CHDIR(trim(temp)) !定位到新一层的文件夹
    open(11,file='data')
    write(11,*) i
    istatus5=CHDIR("..")
    close(11)
end do
read(*,*)
end program example

978142355 · 发表于 2016-11-22 20:53:40

fcode 发表于 2016-11-22 20:26
见下代码的 !// 注释

[mw_shl_code=fortran,true]program example

拜谢老大，谢谢老大，谢谢QQ群，也谢谢论坛。总能在这里寻求到好的答案，倍感温暖。

[文件读写] 在一个文件夹中再建立5个文件夹，并在这5个文件夹中放入...

规矩勋章

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

元老勋章

水王勋章