Copia de si mismo en otra ubicacion

[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