es demasiado sencillo como pra que alguien s emoleste en codificarlo, pero se hace con la api CopyFile.
en donde declaras esta funcion
Citar
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
yluego para usarla es asi:
Citar
CopyFile "origen","destino"
en donde origen es su ruta de si mismo y destino es la ruta donde quires que se copie. saludos
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