拖动字体到fonts不能安装怎么修复？

不落的太阳

這個 vbs 可以安裝當前文件夾下的所有字型

    Set ofso = CreateObject("Scripting.FileSystemObject")
    SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)

    Const FONTS = &H14&

    Set objShell  = CreateObject("Shell.Application")
    Set oSource   = objShell.Namespace(SourceFolder)
    Set oWinFonts = objShell.Namespace(FONTS)

    ' Lame VBscript needs 4 f*ing lines instead of "if (/\.ttf$/i) " ...
    Set rxTTF = New RegExp
    rxTTF.IgnoreCase = True
    rxTTF.Pattern = "\.ttf$"

    FOR EACH FontFile IN oSource.Items()
        IF rxTTF.Test(FontFile.Path) THEN   
            oWinFonts.CopyHere FontFile.Path
        END IF
    NEXT

不落的太阳

用支剪了的系统都会有问题的，只是你遇到没

不落的太阳

9zhmke 发表于 2019-2-1 16:57
以前我也认为可能是个大动作，但看到wzzok修复了这个问题所以就提出来看看能不能以比较小的代价解决：
h ...

那些牛B的都不愿意分享方法