![发贴心情](skins/Default/topicface/face1.gif)
有2个文件夹,分别是rhdata,tdata,每个文件夹中有823个文件
想对这两个文件夹进行批处理,下面是我的代码:
character(len=*),parameter::fhr="hour2\" !!!! 修改 !!!!! 根目录下的文件夹时次
character(len=*),parameter::fdr="D:\Fortran\Liitle_r\BJ-NJ\" !根目录
character(len=*),parameter::dr2="rhdata\",dr1="tdata\"
call system('dir /b trim(fdr)//trim(fhr)//trim(dr1)//'*.txt' > 't-'//trim(fhr)//'.dat'')
open(10,file=a,status='old',form='formatted',iostat=istat,position='rewind')
报错了,说call 命令不对,找不到系统下的文件们。
恳求大家给点指导!
万分感谢!
想对这两个文件夹进行批处理,下面是我的代码:
character(len=*),parameter::fhr="hour2\" !!!! 修改 !!!!! 根目录下的文件夹时次
character(len=*),parameter::fdr="D:\Fortran\Liitle_r\BJ-NJ\" !根目录
character(len=*),parameter::dr2="rhdata\",dr1="tdata\"
call system('dir /b trim(fdr)//trim(fhr)//trim(dr1)//'*.txt' > 't-'//trim(fhr)//'.dat'')
open(10,file=a,status='old',form='formatted',iostat=istat,position='rewind')
报错了,说call 命令不对,找不到系统下的文件们。
恳求大家给点指导!
万分感谢!