求高手帮忙。

Question

求高手们帮写个VBE。 内容如下。  将 first.ttf文件 复制到指定目录，例如 E:\  并且 在E:\建立一个叫做Fonts 的文件夹。 复制后的文件  自动命名为1.ttf 2.ttf  请问高手们 这个怎么写?? 小弟在这先谢了。 在线等。。

Answer 1

Public Sub Main()    '复制文件
    FileCopy "first.ttf", "e:\"     '如果first.ttf没有在程序所在目录下，可用绝对路径
    '在E:\建立一个叫做Fonts的文件夹
    MkDir "e:\fonts"
    '文件更名
    Name "e:\first.ttf" As "e:\1.ttf"
    
End Sub

Answer 2

ls正解也可以用API函数，或者FSO。
VB文件处理语句的缺点是不是很完善，比如如果目标位置已经有文件了，就会出错。

Answer 3

可以用VB的DIR先判断一下是否存在同名文件或者文件夹

Answer 4

加个on error resume next

Answer 5

正解！也可以使用FSO对象来实现。

Answer 6

    MkDir "e:\Fonts"
    FileCopy "C:\WINDOWS\Fonts\ARIAL.TTF", "e:\Fonts\1.tff"

Answer 7

Option ExplicitDim dRet As DoublePrivate 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