chenqian1982 发表于 2008-2-7 05:12:43

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

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

chenqian1982 发表于 2008-2-7 17:47:44

搞定了
        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
页: [1]
查看完整版本: 怎样创建批量文件到一个指定的目录