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

fcode

见下代码的 !// 注释

[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