返回列表 发帖
holley

Rank: 5Rank: 5

帖子
123 
积分
760 
技术
9  
捐助
0  
注册时间
2010-11-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2021-12-13 12:24 | 只看该作者

[技术讨论] 批量安装字体的VBS脚本Folder.CopyHere 方法中的参数问题

现有批量安装字体的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)
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[color=Red],256[/color]
    END IF
NEXTCOPY
测试在未安装对应字体的电脑上使用正常
但如果已安装对应字体则会弹出是否覆盖的确定窗口，手动一个个点击确认太麻烦了
查了一下微软相关的方法调用：https://docs.microsoft.com/ja-jp ... ell/folder-copyhere
发现我添加的参数都未正常生效  想请教一下 是这个可选参数只能在特定环境下生效还是我的脚本错误导致这种情况
收藏 分享

flashercs

Rank: 6Rank: 6

帖子
1292 
积分
2294 
技术
291  
捐助
0  
注册时间
2017-3-20 
2楼
发表于 2021-12-14 11:54 | 只看该作者 
oWinFonts.CopyHere FontFile.Path,16+256COPY
微信:flashercs
QQ:49908356

TOP

holley

Rank: 5Rank: 5

帖子
123 
积分
760 
技术
9  
捐助
0  
注册时间
2010-11-4 
3楼
发表于 2021-12-15 09:28 | 只看该作者
回复 2# flashercs
貌似没啥效果，win10 x64测试。
想添加直接发送enter键 居然也不生效。
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)
Set rxTTF = New RegExp
rxTTF.IgnoreCase = True
rxTTF.Pattern = "\.ttf|ttc|otf$"
' rxTTF.Pattern = "\.otf$"
set WshShell = CreateObject("WScript.Shell")
FOR EACH FontFile IN oSource.Items()
    IF rxTTF.Test(FontFile.Path) THEN
		WScript.Sleep 800
        oWinFonts.CopyHere FontFile.Path,16+256
		WScript.Sleep 800
		WshShell.AppActivate "安装字体"
		WshShell.SendKeys "{ENTER}"
    END IF
	WScript.Sleep 800
	WshShell.AppActivate "安装字体"
	WshShell.SendKeys "{ENTER}"
NEXTCOPY

TOP

flashercs

Rank: 6Rank: 6

帖子
1292 
积分
2294 
技术
291  
捐助
0  
注册时间
2017-3-20 
4楼
发表于 2021-12-15 11:15 | 只看该作者
回复 3# holley


    以管理员身份运行vbs可以发送按键
微信:flashercs
QQ:49908356

TOP

返回列表