Hello all,
I'm no VBS writter and have used the VBS script provided on
http://wpkg.org/Fonts to install fonts successfully:
--------------------------------------
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)
MyDir = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-
len(Wscript.ScriptName)-1)
objFolder.CopyHere MyDir &"\MyNewFont.ttf"
--------------------------------------
What I don't know is how to delete fonts in a similar manner to
installing them. I've tried replacing .CopyHere with .DeleteFile, I
get a VBScript runtime error. This is probably my ignorance of VBS,
anyone help me with this?
Many thanks
Chris
-------------------------------------------------------------------------
wpkg-users mailing list archives >> http://lists.wpkg.org/pipermail/wpkg-users/
_______________________________________________
wpkg-users mailing list
wpkg-users@lists.wpkg.org
http://lists.wpkg.org/mailman/listinfo/wpkg-users
