>>268
Fortran95 までの標準仕様ではディレクトリの操作や検索は出来ない。

しかし、大抵の処理系にはファイル操作関係の拡張手続きが付いているので
それらを使えば可能。
以下は Compaq Visual Fortran での例：

　use DFLIB
　implicit none
　character(len=100) :: dir, files, fname
　integer(kind=4) :: handle, fnlen
　type(FILE$INFO) :: info
　：
　dir = "D:\DataDir\"
　files = trim(dir) // "*.txt"
　handle = FILE$FIRST
　do
　　fnlen = GETFILEINFOQQ(files, info, handle)
　　if ((handle == FILE$LAST) .or. (handle == FILE$ERROR)) exit
　　fname = trim(dir) // info%NAME
　　open(unit=10, file=fname, status="OLD")
　　：
　　ファイルの読み込み
　　：
　　close(10)
　end do
　：

詳しくは処理系のマニュアル等を参照のこと。