Buenas a tod@s,
Tengo una función que cada vez que subo la dll me funciona pero las siguientes ejecuciones no me copia el fichero. En si esta función se encarga de copiarme un fichero pdf en mi maquina y adjuntarlo para un email.
Supongo que hay algo que queda sin cerrar, de ahi el problema, pero no se que es lo que falla.
Código:
Dim webrequest As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create("http://url/PDF/" & _Id & ".pdf"), Net.HttpWebRequest)
webrequest.Timeout = 30000
Dim respuesta As System.Net.HttpWebResponse
Try
respuesta = CType(webrequest.GetResponse(), Net.HttpWebResponse)
While (respuesta.StatusDescription <> System.Net.HttpStatusCode.OK.ToString() And respuesta.StatusDescription <> System.Net.HttpStatusCode.RequestTimeout.ToString())
End While
If respuesta.StatusDescription = System.Net.HttpStatusCode.OK.ToString() Then
Dim saveTo As String = "C:\" + _Id + ".pdf"
Dim writeStream As FileStream = New FileStream(saveTo, FileMode.Create, FileAccess.Write)
ReadWriteStream(webrequest.GetResponse().GetResponseStream(), writeStream)
EMail.AddAttachment(saveTo)
writeStream.Close()
End If
respuesta.Close()
webrequest.Connection = "Close"
Catch
End Try
Gracias de antemano y un saludo