vbs搜索当前目录及子目录多种字体格式,复制到FONT文件夹,求大神!~~~

肃杀惊蛰 2020-11-01 05:34:23
就是想做个字体安装器,把当前目录和子目录下的字体文件安装到FONT文件夹,字体格式有ttf、otf、ttc三种

已经有个例子 但是不能查找子目录 和其他两种格式 有没有大神可以修改一下!

-----------------------------------------------------------

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
-----------------------------------------------------------
...全文
2155 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
milaoshu1020 2021-12-03
"\.ttf$"

改成:

"\.(ttf|otf|ttc)$"
  • 打赏
  • 举报
回复
发帖
vbScript

4004

社区成员

它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
帖子事件
创建了帖子
2020-11-01 05:34
社区公告
暂无公告