无忧启动论坛

标题: 同时安装多个字体，能不能实现显示第n个字体，共50个字体? [打印本页]

作者: 15126222223 时间: 2021-5-10 00:43
标题: 同时安装多个字体，能不能实现显示第n个字体，共50个字体?
本帖最后由 15126222223 于 2021-5-10 14:48 编辑

使用VBS安装字体非常方便，但麻烦的事情是只能安装一个一个文件，不会显示很多个，如“正在安装xxxx字体，第1个字体，共1个字体”，我希望能够实现显示“正在安装xxx字体，第6个字体，共24个字体。这样的效果，求各位大佬帮忙解决一下？

我希望自动安装，但一个一个安装，出现系统已经有的，要点击是否覆盖才行，能不能直接覆盖，不提示。
能否把替换提示改为默认替换就行？

本论坛中一个一个安装原代码

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[ DISCUZ_CODE_0 ]quot;
FOR EACH FontFile IN oSource.Items()
IF rxTTF.Test(FontFile.Path) THEN
oWinFonts.CopyHere FontFile.Path
END IF
NEXT

复制代码

作者: junyee 时间: 2021-5-10 07:05
不要用 For Each;
直接把所有路径用分隔符（可能是;或,) 连接在一起．试试吧．

作者: 15126222223 时间: 2021-5-10 07:59
常用的方法有逗号分隔、分号分隔、回车换行分隔、放到数组，试过了这几种都不行。

作者: 邪恶海盗 时间: 2021-5-10 10:34
字体安装不是直接复制到fonts目录就行了么?

作者: 15126222223 时间: 2021-5-10 12:17

邪恶海盗发表于 2021-5-10 10:34
字体安装不是直接复制到fonts目录就行了么?

现在win10复制安装不成功。

作者: 15126222223 时间: 2021-5-10 14:31

edison_2008 发表于 2021-5-10 14:00
亲测，可以。

有部分系统复制进去，不识别，重启不行。

作者: 邪恶海盗 时间: 2021-5-10 14:40

15126222223 发表于 2021-5-10 14:31
有部分系统复制进去，不识别，重启不行。

还有这事???

作者: nttwqz 时间: 2021-5-10 14:55

edison_2008 发表于 2021-5-10 14:00
亲测，可以。

楼主指的可能是非手动复制，命令或者程序复制可能就不会安装

作者: 15126222223 时间: 2021-5-10 15:37

nttwqz 发表于 2021-5-10 14:55
楼主指的可能是非手动复制，命令或者程序复制可能就不会安装

是的，第一种，用命令写进去的。第二种用winrar软件打包成exe，运行路径就是字体安装路径，两种会出现问题，字体无效。

作者: nttwqz 时间: 2021-5-10 18:32

15126222223 发表于 2021-5-10 15:37
是的，第一种，用命令写进去的。第二种用winrar软件打包成exe，运行路径就是字体安装路径，两种会出现问 ...

本坛有个fontreg
复制完成后运行一下就好

作者: dos时代菜鸟 时间: 2021-5-12 19:26
把系统里的这个字体先删掉

作者: 15126222223 时间: 2021-5-13 08:11

dos时代菜鸟发表于 2021-5-12 19:26
把系统里的这个字体先删掉

两种方法，一种就是判断是否安装，一种就是安装前删除。
我选择第一种。

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)