Copia de si mismo en otra ubicacion

[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"

[aldo1982]

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

[bubilo]

mira no lo probe a tu programita. pero creo que tiene un error grave, si cada ves que se ejecuta este programa se copia a si mismo y se ejecuta de nuevo no va a ver computadora que no te de error. trata de verificar que cuando ejecute la primera copia no lo siga abriendo en sucesivas llamadas.

proba con esto para chaquear si ya esta en ejecucion

Dim Ya_Existe As Integer
Ya_Existe = App.PrevInstance
If Ya_Existe <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If

o intercepta el error como dijo Aldo

[TheJez]

El error aparece aunque ejecute el archivo ya copiado desde el explorador de windows y no tenga otra instancia del mismo programa

[bubilo]

El programa lo ejecutes de donde lo ejecutes va a hacer siempre lo mismo ya sea la copia o el original... intercepta el error para que se ejecute despues de copiado una sola vez