Problemas al subir Archivo(input=file)

[yesmina]

hola amigos,

estoy intentando subir archivos, eso ya lo he logrado, aunke a veces me ocurren problemas, con algunos archivos, y no pesan mas de 500kb

Espero pueden ayudarme. GRACIAS

Este el codigo ke estoy usando:
------------------------------
Dim a As String

Dim ext = Path.GetExtension(MyFile.PostedFile.FileName)
If Not (LCase(ext) = ".doc" Or LCase(ext) = ".pdf") Then
mensaje.Text = "Solo puedes subir archivos .doc ó .pdf"
Exit Sub
Else
Dim TargetPath = "c:\files\" & Path.GetFileName(MyFile.PostedFile.FileName)
MyFile.PostedFile.SaveAs(TargetPath)
mensaje.Text = "Tu archivo se recibio correctamente en:: <b>" & TargetPath & "</b>"
End If

[wilwas]

¿Cual es el problema?

Dices que no tiene nada que ver con el tamaño, entiendo que tienes configurado el tema del tamaño de los ficheros bien, no?

¿Donde pretendes grabar los ficheros?.

[o5k4r.m4dr1d]

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??