Name of files in a folder

[fanta2]

how can I know the name of the files that exist in the same directory as the fortran exe resides. Any help is appreciated!

 

[xwb]

Which compiler/operating system are you using?

 

[fanta2]

I am using Compaq Visual Fortran with windows xp

 

[xwb]

Don't know about Compaq Visual Fortran. In g95, I'd do it like this

      program getdir
      character*32 fname
      integer dirlist
      parameter (dirlist = 10)
      call system ('dir /b > dirlist.txt')
      open (dirlist, file='dirlist.txt', status='old')
10    continue
         read (dirlist, *, end = 20) fname
         write (*,*) fname
         goto 10
20    continue
      close (dirlist)
      stop
      end

You can check and not print dirlist.txt and even delete it after the close.

 

[fanta2]

Thanks xwb! It works perfectly.