ник: ДрЮня
если я понял верно
вот АПИшная функция
Public Declare Function CopyFile& Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long)
есть еще проще
Sub FileCopy(Source As String, Destination As String)
Member of VBA.FileSystem
Copies a file