whatever, this works for all...


function InstallFont($source)
dim $,$Shell
 $Shell = CreateObject("Shell.Application")
 $Shell.NameSpace(20).CopyHere($source, 4)
 $Shell.open(20)
 do $=setfocus("Fonts") until @error=0 $=sendkeys("~{F4}")
endfunction


anyway, you should remember that I didn't make it force nor hide GUI if error occurs.
thus, if you are updating fonts, remove the old files first.
oh, supports wildcarts [Big Grin]
_________________________
!

download KiXnet