I got bored 
... and found a Win98 machine to test with. So as of right now, I've tested the version below on WinXP, and Win98. Anyone have a W2k, NT4, or Win95 box and be willing to test.
Code:
? dirdate("C:\windows")
function dirdate($dir)
dim $temp,$parentdir,$childdir,$line,$datetime,$date,$time,$details,$datearray[2]
$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
if @inwin=1
$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
else
if right(ucase(trim($line)),len($childdir))=ucase($childdir)
$date=substr(right($line,16+len($childdir)),1,8)
$datearray=split($date,"-")
if val($datearray[2])<85
$datearray[2]="20" + $datearray[2]
else
$datearray[2]="19" + $datearray[2]
endif
$date=$datearray[2] + "/" + $datearray[0] + "/" + $datearray[1]
$time=substr(right($line,7+len($childdir)),1,6)
if right($time,1)="a"
$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
