Hola, estoy tratando de hacer que mi programa se copie en otra ubicación(no lo hago para hacer virus ni mucho menos, es solo para un instalador) mi codigo es el siguiente, espero me ayuden
Private Sub Form_Load()
FileCopy "" & App.Path & "\" & App.EXEName & ".exe", "C:\Archivos de programa\CarAudio\setup.exe"
Ejecutar ("C:\Archivos de programa\CarAudio\setup.exe")
End Sub
Public Sub Ejecutar(ubicacion As String)
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (ubicacion))
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
funciona bien, solo ke tiene un problema, al ejecutar la copia hace error "error 70 permiso denegado"