. : : ClassiClub ForuM : : .

会员中心 论坛帮助 日历事件 标记论坛已读
返回   精品技术论坛 » 技术论坛 » 『软件使用』

『软件使用』: 电脑软件推荐, 电脑软件使用, 经验分享



发表新主题 回复
 
主题工具
wgf4242
 
wgf4242 的头像
热心会员
 
资 料:
注册日期: Aug 2001
帖子: 6,392 声望值: 6
精华: 0,解答: 32
#1 旧 2019-01-10, 12:36:37 默认 【求助】怎样静默安装Windows字体?
wgf4242 当前离线  

使用vbs时,遇到已安装的字体会暂停。提示要不要覆盖

代码:
strFolder = WScript.CreateObject("wscript.shell").CurrentDirectory
pattern = ".*.ttc|.*.ttf"

Dim re
Set re=New RegExp '建立正则表达式对象实例
re.IgnoreCase = true
re.Pattern=pattern

'msgbox strFolder 
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FONTS)

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(strFolder)
For Each x In oFolder.Files
    
	If re.Test(x.Name) = True Then
    	'strOut = strOut &  x.Name & vbCrLf
    	fontname = strFolder & "\" & x.Name
    	objFolder.CopyHere fontname
    End If
Next
回复时引用此帖
发表新主题 回复

主题工具

论坛规则  发帖规则
不可以发表主题
不可以回复帖子
不可以上传附件
不可以编辑自己的帖子
论坛启用 vB 代码
版面启用 表情符号
版面启用 [IMG] 代码
版面禁用 HTML 代码


所有时间均为北京时间, 现在的时间是 05:29:08.

本论坛带宽由迅通网络提供
SSL证书由TrustAsia提供

Copyright © 2000 - 2019 ClassiClub Forum All Rights Reserved.
粤ICP备09123456号