需要一个例子!!!

来源:百度知道 编辑:UC知道 时间:2024/07/04 18:25:11
用File对象实现文件的复制,能不能举个完整的例子,可以直接复制到代码区中运行的??

请先在C盘创建一个1.txt文件..

Private Sub Command1_Click()
Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "c:\1.txt", "c:\new1.txt"
MsgBox "复制完成"
End Sub

这个例子是把C盘的1.txt,复制到C盘的new1.txt..