12/02/2007, 13:02
|
| | Fecha de Ingreso: febrero-2007
Mensajes: 32
Antigüedad: 17 años, 10 meses Puntos: 0 | |
Re: Problemas al subir Archivo(input=file) Pues no dices exactamente donde está el error, aunque yo trabajo con un codigo muy parecido. Pero mi problema es al bajar el archivo.
Mi codigo es:
Private Sub BajaPDF(ByVal FileName As String)
'FileName es la ruta del archivo con el nombre del archivo y su extension..
Dim fileStream As New FileStream(FileName, FileMode.Open)
Dim fileSize As Long = fileStream.Length
Dim inta As Integer = CInt(fileSize)
Context.Response.ContentType = "application/octet-stream"
Context.Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode(FileName, System.Text.Encoding.UTF8))
Context.Response.AddHeader("Content-Length", fileSize.ToString())
Dim fileBuffer(inta) As Byte
fileStream.Read(fileBuffer, 0, inta)
fileStream.Close()
Context.Response.BinaryWrite(fileBuffer)
Context.Response.End()
End Sub
y funciona perfectamente al guardarlo, pero cuando le doy click y aparece la ventana de confirmación "Abrir - Guardar - Cancelar" y le doy directamente Abrir, me dice qe el archivo no fue encontrato en "Local Settings/Temporary Internet Files..etc.." Sabra alguien a que se deba?? |