Changes

Or, to install all .ttf , .otf, .pfm, .fon files from the folder containing your FontInstall.vbs script:

Const FONTS = &H14& Set objShell = CreateObject("Shell.Application")Set ofso = CreateObject("Scripting.FileSystemObject") SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)Set oSource = objShell.Namespace(SourceFolder)Set oWinFonts = objShell.Namespace(FONTS) ' 4 f*ing lines instead of just "if (/\.ttf$/i)". I hate VBscript!!!Set rxTTF = New RegExprxTTF.IgnoreCase = TruerxTTF.Pattern = "\.ttf$"

' FontFile may be without fontFileName = ofso.ttf extension! Use GetFileName(FontFile.Path) IF rxTTFregEx.Test(FontFilefontFileName) THEN Set objMatch = regEx.Execute(fontFileName) win7FontFileName = objMatch.Item(0).Submatches(0) & objMatch.Item(0).Submatches(2) localFontPath = oWinFonts.Self.Path& "\" & fontFileName win7LocalFontPath = oWinFonts.Self.Path & "\" & win7FontFileName IF NOT ofso.FileExists(localFontPath) AND NOT ofso.FileExists(win7LocalFontPath) THEN oWinFonts.CopyHere FontFile.Path END IF END IF