[quote][quote][quote]
新手，不知道如何实现，请明示[/quote]


CHARACTER(20)    CH(100)
CH(1)=
CH(2)=
.
.
.
以上为赋值。填入文名
DO I=1,100
OPEN(1,FILE=CH(I))  !1也可以改成I
中间过程

CLOSE(1)            !1也可以改成I
ENDDO[/quote]
这样如果文件名很多，很不方便，可以先把文件名存放在一个自己新建的文件中，然后读取值数组中，方便以后更改和添加：
PROGRAM READFILE
CHARACTER(20)    CH(100)
OPEN(2010,FILE='NAME.TXT,'STATUS='OLD',FORM='FORMATTED')                 
!NAME.TXT是自己新建的存有这些文件名的文件
DO 1 I=1,N            !N是文件名个数
READ(2010,*),CH(I)
1  CONTINUE
DO 2 I=1,100
OPEN(1,FILE=CH(I))  !1也可以改成I
中间过程

CLOSE(1)            !1也可以改成I
2 CONTINUE
END PROGRAM
[/quote]

"可以先把文件名存放在一个自己新建的文件中，然后读取值数组中，方便以后更改和添加"

这一步是手工的吗？还是可以用额外的程序实现？

http://bbs.pfan.cn/post-316174.html
里面就讨论如何把文件名导入到一个文件里面, 贴了2次没看... 唉~