先读取文件名，再操作文件即可。
read*，filename
open〔1，file=filename，action='read'〕
pause
调试一下试试～

谢谢，不过我还是没太看明白，我正在看一本《visual fortran 编程指南》，上面有介绍如何制作对话框的。
再次表示感谢！

给你一个带命令行参数的方法|就是 执行程序空格输入文件空格输出文件
        CHARACTER*10 NAM1,NAM2

C       CHARACTER*20 BUFFER
C       INTEGER*4 NUMARGS,STATUS
C       numargs=nargs()
C       call getarg(1,buffer,status)
C       NAM1=BUFFER
C       numargs=nargs()
C       call getarg(2,buffer,status)
C       NAM2=BUFFER
C       WRITE(*,*)
C       WRITE(*,'(A\)') '-DO YOU SURE YOUR INPUT-FILE NAME IS---!'
C       WRITE(*,'(A)') NAM1
C       WRITE(*,*) '(if it is no please press Ctrl+C   !!! )'
C       read(*,*)
C       OPEN(1,FILE=NAM1,STATUS='unknown')
C       WRITE(*,*)
C       WRITE(*,*)
C       WRITE(*,'(A\)') '-DO YOU SURE YOUR  OUT-FILE NAME IS----!'
C       WRITE(*,'(A)') NAM2
C       OPEN(2,FILE=NAM2,STATUS='unknown')
C       OPEN(3,FILE='ZJ.MID',STATUS='unknown')
C       WRITE(*,*)

个别有点错行了