Hola compañeros,
Tengo una función que se encarga de lanzar un proceso el cual crea paquetes
.rar de imágenes que posteriormente se envian por ftp mediante un servicio de
windows.
El tema está en que la función que lanza el winrar se utliza en un proyecto
de formularios y cuando se lanza el proceso salta la pantalla del winrar.
Hay alguna posibilidad que pueda hacer los .rar sin que el usuario vea la
pantalla del winrar?
mi funcion es asi(ya de paso que la reaprobeche alguien):
Public Function CreaRAR(ByVal rutaRar As String, ByVal rutaOrigen As
String, ByVal rutaDestino As String, Optional ByVal parametros As String =
"a") As Boolean
Dim TimerExec As Integer
Dim TIMERCONSULTA As Integer = 30000
Try
If rutaRar = "" Then
msgError = CLASE & ".CreaRAR (La ruta del programa WinRar
está vacía)"
Return False
End If
' Manda el fichero.
Dim proc As Process = Process.Start(rutaRar, parametros & " " &
rutaDestino & " " & rutaOrigen)
Do Until proc.WaitForExit(TIMERCONSULTA)
TimerExec = TimerExec + TIMERCONSULTA
If TimerExec >= TIMERFIN Then
proc.Kill()
msgError = CLASE & ".CreaRAR (Terminó el tiempo de
espera.)"
Return False
End If
Loop
proc.Close()
Return True
Catch
msgError = CLASE & ".CreaRAR (Err:" & Err.Number & "-" &
Err.Description & ")"
Return False
End Try
end function
Gracias,
Leer las respuestas