在写程序时,有时会需要生成大量的文件,其文件名一般都为有规律的序号。为了生成的文件有良好的组织性,我们又希望动态地生成不同的文件夹来放置这些文件。下面的程序可以实现这样的工作。
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
以上是示意性代码,只表达实现思路,未经运行测试。
我的微信公众号
分享科研软件、科研方法,为你的科研助力。
评论