Hola
Pues si que era dificil jejeje.Asi kedaria
Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Form_Load()
Dim Res As Long
' Este ejemplo copia el fichero AutoExec.Bat como NewExec.Bat
' y lo sobreescribe si existe
Res = CopyFile("c:AutoExec.Bat", "c:NewExec.Bat", 0)
End Sub
por si le interesa a alguien,gracias por la ayuda
Saludos