有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 命令不对，找不到系统下的文件们。
恳求大家给点指导！
万分感谢！

 

call system('dir /b trim(fdr)//trim(fhr)//trim(dr1)//'*.txt' > 't-'//trim(fhr)//'.dat'')
是不是要改成
call system('dir /b '//trim(fdr)//trim(fhr)//trim(dr1)//'*.txt > t-'//trim(fhr)//'.dat')
?