Fortran动态新建文件夹及批量写文件

在写程序时，有时会需要生成大量的文件，其文件名一般都为有规律的序号。为了生成的文件有良好的组织性，我们又希望动态地生成不同的文件夹来放置这些文件。下面的程序可以实现这样的工作。

program testCreatFolder

use DFPORT

implicit none

integer :: ierr

integer :: ki,kj, ifID

character(30) :: cDirName

character(30) :: cFileName

do ki = 1,2

write(cDirName,*) ki

cDirName = "C:\" // trim( adjustl( cDirName ) ) // "\"

ierr = system("md " // trim( cDirName ))

do kj = 1,2

write( cFileName, * ) kj

open(ifID, FILE = trim(cDirName) // trim( adjustl( cFileName ) ) // '.txt' )

write(*,*) 'test'

close(ifID)

enddo

enddo

end program testCreatFolder

以上是示意性代码，只表达实现思路，未经运行测试。

via Fortran动态新建文件夹及批量写文件_惑而知之：我的读书生活_百度空间.