Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.copyfile "d:as.doc", "d:aa.doc"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.copyfile "d:as.doc", "d:aa.doc"
调试欢乐多
fo.copyfile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"