Simply copying fonts into the fonts folder using a VB script doesn’t actually install them.
To install the fonts you have to use the following code:
|
1 2 3 4 |
Const FONTS = &H14& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(FONTS) objFolder.CopyHere "C:ScriptsMyfont.ttf" |