I created a DIRDATE() UDF. Its output mimics that of GETFILETIME. Its only requirement is the command processor. I haven't tested it with Win9x machines, but I think it should work. The board was having trouble with this line: $details=split($line,"<" + "DIR" + ">") so I had to break up the string.

Let me know if this helps.

Code:
  

dirdate("C:\Windows")



function dirdate($dir)

  dim $temp,$parentdir,$childdir,$line,$datetime,$date,$time,$details

  $temp="%temp%\dirdate.tmp"

  if exist($dir)

    if right($dir,1)="\"

      $dir=substr($dir,1,len($dir)-1)

    endif

    $parentdir=substr($dir,1,instrrev($dir,"\"))

    $childdir= substr($dir,instrrev($dir,"\")+1)

    shell '%comspec% /c dir /ad "' + $parentdir + '" > "$temp"'

    if open(1,$temp)=0

      $line=readline(1)

      while @error=0 and $dirdate=0

        $details=split($line,"<" + "DIR" + ">")

        if ubound($details)>0

          if ucase(trim($details[1]))=ucase($childdir)

            $datetime=trim($details[0])

            $date=left($datetime,10)

            $date=split($date,"/")[2] + "/" + split($date,"/")[0] + "/" + split($date,"/")[1]

            $time=right($datetime,8)

            if right($time,2)="AM"

              $time=left($time,5) + ":00"

            else

              $time=left($time,5)

              $time="" + (val(split($time,":")[0])+12) + ":" + split($time,":")[1] + ":00"

            endif

            $dirdate=$date + " " + $time

          endif

        endif

        $line=readline(1)

      loop

     endif

     $=close(1)

  else

    exit 2

  endif

endfunction
_________________________
(... better days ahead)