Re: How to determine whether or not there exists a directory

Here's a snippet from a correspondent which is supposed to work
(in this case withinn the root WINNT) but you an change that!  ...

       integer lw          ! lw = Laufwerk, which means drive number
       character*51 sroot  ! sroot = system-root-folder,
                           !you can also say: windir
       logical ok
       ok=.FALSE.
       lw=3
       sroot=' '
       do while (.not.ok.and.lw.le.26)
         sroot=char(lw+64)
         sroot(2:)=':\WINNT\NUL'
         inquire (file=sroot,exist=ok)
         lw=lw+1
       end do
       if (.not.ok) sroot=' '
       sroot(index(sroot,'\NUL'):)=' '