提供一种调用系统函数的方法，假设你的数据.dat 放在D:\data 目录下。试试下面的程序：
   program main

   implicit none
   integer::ifile,i
   integer,parameter::max=100 
   character(len=30),dimension(max) :: filename

   call system('dir D:\data\*.dat /b > file_list.txt')

   open(10,file = 'file_list.txt',status='old')

    
   ifile = 1
   do while (.true.)   
     read(10,'(a)',end=100) filename(ifile)
     ifile = ifile + 1
   end do

100 close(10)
    
   write(*,*) '找到文件数:', ifile-1

   do i = 1,ifile-1
    write(*,*), '在此操作文件  ', filename(i)
   enddo

   end program

楼主的说法我就不明白了，文件名只要符合操作系统的规定，难道不是任意的么？

[quote]楼主的说法我就不明白了，文件名只要符合操作系统的规定，难道不是任意的么？[/quote]

估计语文没学好[em5]

1楼的学习了。

2楼：楼主的意思应该是说待读取文件名是编程者未知的。

呵呵，要学好编程语言这方面对人的和对电脑的一样重要啊：）

[quote]1楼的学习了。

2楼：楼主的意思应该是说待读取文件名是编程者未知的。[/quote]

文件名未知可以，我的1楼程序只能解决一个目录下扩展名一样的一批文件。
当然，根据需要，可以修改实现需要的功能。