无忧启动论坛

标题: vbs搜索当前目录及子目录多种字体格式，复制到FONT文件夹，求大神 [打印本页]

作者: a88758289 时间: 2020-11-2 13:06
标题: vbs搜索当前目录及子目录多种字体格式，复制到FONT文件夹，求大神
就是想做个字体安装器，把当前目录和子目录下的字体文件安装到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
-----------------------------------------------------------

作者: nttwqz 时间: 2020-11-2 14:18
不会

作者: 9zhmke 时间: 2020-11-2 15:35
这个不可靠，删除了c:\windows\fonts\desktop.ini就无法安装了，我也没找到可靠的VBS安装方法

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)