在文件夹里建新的文件夹，在新的文件夹里写入数据

lumlngz

fcode 发表于 2023-10-30 10:07
上代码，截图

我用的代码就是您上面的那个，但还是出现命令语法错误了

lumlngz

fcode 发表于 2023-10-30 10:07
上代码，截图

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

查看代码

打印?

01	dirname_1 = "total"

02	dirname= "part"

03	filename = trim(model)//'.txt'

04	call system("mkdir "//dirname_1)

05	call system("mkdir "//trim(dirname_1)//'/'//dirname)

06	open(30,file=trim(dirname_1)//'/'//trim(dirname)//'/'//filename)

07

do i=0,10

08	radius=i*0.1

09	write(30,'(5f15.6)') radius

10

enddo

fcode

如果你用的 windows 系统的话，用 '\' 代替 '/'

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

查看代码

打印?

01	dirname_1 = "total"

02	dirname= "part"

03	filename = trim(model)//'.txt'

04	call system("mkdir "//dirname_1)

05	call system("mkdir "//trim(dirname_1)//'\'//dirname)

06	open(30,file=trim(dirname_1)//'\'//trim(dirname)//'\'//filename)

07

do i=0,10

08	radius=i*0.1

09	write(30,'(5f15.6)') radius

10

enddo

lumlngz

fcode 发表于 2024-4-5 19:47
如果你用的 windows 系统的话，用 '\' 代替 '/'
[mw_shl_code=fortran,true]dirname_1 = "total"
dirname=  ...

成功了！谢谢老师