怎样创建批量文件到一个指定的目录

chenqian1982

怎样创建批量文件到一个指定的目录

chenqian1982

搞定了
        character(len=80) :: filename,form
        integer :: i

        do i=1,4
        write(form,*) i
        filename='D:\Nouveau dossier\'\\trim(adjustl(form))\\.'TXT'
        open(10,file=filename)
        close(10)
        end do

        stop
        end