Question

VB批量安装字体！

现在有30几个字体，想做一个软件来一次性安装这些字体，有哪位朋友有方法求指教！

Answer 1

VB程序直接把字体拷贝到C:\WINDOWS\Fonts文件夹里就好了，还要怎么滴吧

追问

我用了vb的filecopy和vbs的sfo两种方法复制，可是复制进字体文件夹后，字体依然不能用！

追答

简单的另人发指：

你在程序文件中建立一个资源文件夹，把字体放在程序文件里，我用怎么可以，写错语句了吧，一定要名称对名称写，拷贝后的文件名称也要写出来：

Dim lujing as String
Dim ziti as String    //把字体名存在数据库里，遍历数据库读取字体，循环复制文件
Dim i as Integer
lujing=App.Path+"\资源文件"+ziti
For i=0 to ds.Recordset.RecordCount 
FileCopy lujing, "C:\WINDOWS\Fonts\“+ziti
ds.Recordset.MoveNext
Next

理解没有，比如宋体文件名是 SIMSUN.TTC，你要名称对名称拷贝啊

追问

这个是我写的代码，所有字体文件都存放在d:\desk\字体\font\font\文件夹，我先获取所有文件名存入数组，然后在一一调用？这个错误时什么原因啊？谢谢！

追答

你写得好复杂啊，别听信网络上流传的代码，大多不是杜撰的，到处抄袭的，首先申明一点用API来做文件操作是个十分消耗内存的事情，你还用到了数组，他就象C++里的指针一样，反复读取内存，这个操作其实很简单，也是大部分软件需要做的事情，比如开发环境软件安装的时候他要检测你是不是已经安装过，我做的条形码制作软件也会去检测他计算机有没有条形码字体，用.NET平台开发的软件安装时候也要检测是不是计算机有Framework对应的版本，如果没有那就升级，如果有就不需要再去安装，不是什么特殊的案例。我给个例子你就懂了 VB6.0做的。

最早期我用过天心公司用Delph开发的ERP，安装这个那个的一大堆，后来我自己开发软件就明白了完全没这个必要，尽量简化操作、安装过程，接近大众的软件才有真正的价值。你不要以为代码写得多就是优秀，现在编程讲究的是简洁高效

Answer 2

你可以把它们装在压缩包里然后变成自解压文件

追问

这个方法我也用了，可是解压不进去不知道为什么！

追答

这我就不清楚了，字体貌似是装在C:\WINDOWS\Fonts里面的。。VB能移文件吗？？