alias specialdir {
if $findtok(win sys temp,$1,32) { var %a = sd $+ $ticks, %b = %a $+ d, %c = $ifmatch - 1 }
else return
.comopen %a Scripting.FileSystemObject
if $comerr { return <error> }
.comclose %a $com(%a,GetSpecialFolder,1,uint,%c,dispatch* %b) $com(%b,Path,2)
%a = $com(%b).result
.comclose %b
return %a
}