Abrir archivo cargado al servidor

[o5k4r.m4dr1d]

Que tal foreros!!

Tengo una aplicación en .NET, y dentro de ella, al crear una factura, el usuario puede cargar un archivo cualquiera que es salvado en el servidor, hasta ahi todo va bien. El problema es cuando el usuario consulta esa factura, pues desea visualizar el archivo que se adjunto previamente; al descargarlo y guardarlo unciona perfectamente, 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??

el codigo que uso para descar mi archivo 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

[RootK]

Mejor intentalo de ésta forma:

...
...
Dim fiLoaded As New FileInfo(FileName)
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" & fiLoaded.Name)
Response.AddHeader("Content-Length", fiLoaded.Length.ToString())
Response.ContentType = "application/octet-stream"
Response.WriteFile(fiLoaded.FullName)
Response.End()

ahora que si ésto no te funciona hay que echarle un ojo a la parte de donde guardas tu archivo.

SAlu2

[o5k4r.m4dr1d]

Hola!!

Fijate que use la sugerencia que me brindaste, pero sigue funcionando igual



El codigo con el que lo guardo es:


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim strFileName As String
Dim fecha_nombre As String
Dim ruta_archivos As String = "C:\Inetpub\wwwroot\SisFac_Pruebas\Archivos\"

If Not (File1.PostedFile Is Nothing) Then

' Este es un algoritmo para concatenar al nombre del archivo, ciertos parametros para hacer que el archivo sea siempre unico
fecha_nombre = Date.Now
If Date.Now.Hour < 10 Then
fecha_nombre = fecha_nombre.Replace(" ", "0")
End If
fecha_nombre = fecha_nombre.Replace(" ", "")
fecha_nombre = fecha_nombre.Replace("/", "")
fecha_nombre = fecha_nombre.Replace(":", "")
fecha_nombre = fecha_nombre.Replace("p.m.", "")
fecha_nombre = fecha_nombre.Replace("a.m.", "")
fecha_nombre = fecha_nombre & "_"

If File1.Value <> Nothing Then
strFileName = File1.Value.Trim().Substring(File1.Value.Trim().La stIndexOf("\") + 1)
File1.PostedFile.SaveAs((ruta_archivos & fecha_nombre & strFileName))
End If

End If
End Sub


¿Cómo ves ese código?