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

2020-11-01 05:34:23 1.1万阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Claude+Opus4.7原生集成：重构Word为语义级文档操作系统文档智能正从‘文本处理’迈向‘语义理解’新阶段——其核心是让AI深度接入办公软件的文档对象模型（DOM），实现自然语言指令到格式、结构、引用、合规性等全要素的精准映射。这依赖于大模型的长上下文能力与办公API的原生融合，而非简单调用外部API或复制粘贴。Claude Opus4.7凭借200K token上下文、多阶段推理架构及对Word DOM的实时访问能力，成为支撑法律合同审阅、跨文档协同、条款级重写等高保真编辑任务的关键底座。典型应用场景包括法务合规审查、技术文档工程化、高校论文格式治理等知识密集型工阅读详情

就是想做个字体安装器，把当前目录和子目录下的字体文件安装到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
-----------------------------------------------------------

...全文