Upps lo siento
bueno el codigo basicamente es esto..y en forma aislada funciona normalmente
DescargarActualizacion ("http://dddft.es/B.exe") ' Descargo mi file
Dim pInfo As PROCESS_INFORMATION ' Ejecuto el file
Dim sInfo As STARTUPINFO
Dim sNull As String
Dim lSuccess As Long
Dim lRetValue As Long
sInfo.cb = Len(sInfo)
lSuccess = CreateProcess(sNull, _
App.Path + "\B.exe", _
ByVal 0&, _
ByVal 0&, _
1&, _
NORMAL_PRIORITY_CLASS, _
ByVal 0&, _
sNull, _
sInfo, _
pInfo)
Sub DescargarActualizacion(Url As String)
Call URLDownloadToFile(0, Url, App.Path & "\B.exe", 0, 0)
End Sub
El archivo se descarga completamente lo se pork al terminar el programa manualmente recien aparece el icon del exe descargado..y se comporta normalmente
Es como si el archivo siguiera abierto en modo de escritura binaria y esperara que el proceso se acabe para cerrarse.
Incluso he llegado a suspender la ejecucion unos segundos para el proceso se de un respiro y luego ejecute el exe pero nada...