Dim fso As New FileSystemObject
Set fso = CreatObject("Scripting.FileSystemObject")
FileSystemObject.CopyFile "c:\file1.txt", "c:\file2.txt"在工程中引用Microsoft Scripting Runtime
Set fso = CreatObject("Scripting.FileSystemObject")
FileSystemObject.CopyFile "c:\file1.txt", "c:\file2.txt"在工程中引用Microsoft Scripting Runtime
如果是英文版就是
菜单 Project->>References->>Microsoft Scripting Runtime
Dim Temp As Long
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Temp = FileSystemObject.CopyFile("D:\1.bmp", "c:\1.bmp")
MsgBox Temp
Set FileSystemObject=CreatObject("Scripting.FileSystemObject")
FileSystemObject.CopyFile "c:\file1.txt", "c:\file2.txt"
提示子程序或函数未定义光标定位到creatobject//我咋个看着像是你少打了一个字母????CreateObject才对吧.