求高手帮忙。
求高手们帮写个VBE。 内容如下。 将 first.ttf文件 复制到指定目录,例如 E:\ 并且 在E:\建立一个叫做Fonts 的文件夹。 复制后的文件 自动命名为1.ttf 2.ttf 请问高手们 这个怎么写?? 小弟在这先谢了。 在线等。。 --------------------编程问答--------------------Public Sub Main()--------------------编程问答-------------------- ls正解。。。
'复制文件
FileCopy "first.ttf", "e:\" '如果first.ttf没有在程序所在目录下,可用绝对路径
'在E:\建立一个叫做Fonts的文件夹
MkDir "e:\fonts"
'文件更名
Name "e:\first.ttf" As "e:\1.ttf"
End Sub
也可以用API函数,或者FSO。
VB文件处理语句的缺点是不是很完善,比如如果目标位置已经有文件了,就会出错。 --------------------编程问答--------------------
可以用VB的DIR先判断一下是否存在同名文件或者文件夹 --------------------编程问答-------------------- 加个on error resume next --------------------编程问答-------------------- 综合楼上,就是正确解.
--------------------编程问答--------------------
正解!
也可以使用FSO对象来实现。 --------------------编程问答--------------------
--------------------编程问答--------------------
MkDir "e:\Fonts"
FileCopy "C:\WINDOWS\Fonts\ARIAL.TTF", "e:\Fonts\1.tff"
Option Explicit
Dim dRet As Double
Private Sub Command1_Click()
dRet = Shell("c:\windows\system32\cmd.exe /c mkdir ""e:\fonts""", vbHide)
chenjl1031:
If dRet > 0 Then
Shell "c:\windows\system32\cmd.exe /c copy c:\first.ttf e:\fonts\1.ttf", vbHide
Exit Sub
Else
GoTo chenjl1031
End If
End Sub
补充:VB , 基础类