同时安装多个字体，能不能实现显示第n个字体，共50个字体?

15126222223

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

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



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

1. Set ofso = CreateObject("Scripting.FileSystemObject")
   
2. 
   
3. SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)
   
4. 
   
5. 
   
6. Const FONTS = &H14&
   
7. 
   
8. 
   
9. Set objShell  = CreateObject("Shell.Application")
   
10. 
    
11. Set oSource   = objShell.Namespace(SourceFolder)
    
12. 
    
13. Set oWinFonts = objShell.Namespace(FONTS)
    
14. 
    
15. 
    
16. ' Lame VBscript needs 4 f*ing lines instead of "if (/\.ttf$/i) " ...
    
17. 
    
18. Set rxTTF = New RegExp
    
19. 
    
20. rxTTF.IgnoreCase = True
    
21. 
    
22. rxTTF.Pattern = "\.ttf[        DISCUZ_CODE_0        ]quot;
    
23. 
    
24. 
    
25. FOR EACH FontFile IN oSource.Items()
    
26. 
    
27.     IF rxTTF.Test(FontFile.Path) THEN
    
28.    
    
29.         oWinFonts.CopyHere FontFile.Path
    
30. 
    
31.     END IF
    
32. 
    
33. NEXT

复制代码

junyee

不要用 For Each;
直接把所有路径用分隔符（可能是;或,) 连接在一起．试试吧．

15126222223

常用的方法有逗号分隔、分号分隔、回车换行分隔、放到数组，试过了这几种都不行。

邪恶海盗

字体安装不是直接复制到fonts目录就行了么?

15126222223

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

现在win10复制安装不成功。

15126222223

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

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

邪恶海盗

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

还有这事???

nttwqz

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

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

15126222223

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

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

nttwqz

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

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

dos时代菜鸟

把系统里的这个字体先删掉

15126222223

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

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