Cita:
Iniciado por TheJez 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"
ese error no es porke ya está abierto el programa ?? usa el error y/o cerrá el programa ke se está ejecutando .
salu2 cuankier cosa avisame