hola amigos del foro, como est?n, espero q bien, les escribo por que necesito de su ayuda, miren tengo una pagina Web, hecha en vb.net, con WebForm, en ella uso dos FileUpload, cada uno me guarda archivos diferente, que pueden ser de extensi?n .doc, xls, ppt, o cualquiera de office, el echo es que cuando guardo el primer documento y luego lo abre y normal, pero cuando guardo el segundo y lo quiero abrir me sale el siguiente mensaje

Microsoft Office Word necesita un convertidor para mostrar este archivo correctamente

y lo mas curioso es que solo ocurre con el segundo FileUpload, con el primero normal, por que he echo la pri?ueba de solo guardar usando el segundo FileUpload y solo ah? me sale el error, amigos, diganme por favor como puedo solucionar este problema, gracias de antemano

les adjunto mi codigo

--- boton que caputa el nombre del archivo y lo guarda
Protected Sub boton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles boton.Click
Dim documento As String
Dim file As Boolean = False
Dim tip_file As String
Dim Extens As String() = ".xls", ".doc", ".txt", ".ppt", ".pps"}

If FileUpload1.HasFile Then
tip_file = System.IO.Path.GetExtension(FileUpload1.FileName).ToLower()
For i As Integer = 0 To Extens.Length - 1
If tip_file = Extens(i) Then
file = True
End If
Next
If file Then
documento = FileUpload1.FileName
FileUpload1.SaveAs("C:REPOSITORIO" & FileUpload1.FileName)
Link_buuton1.Text = documento
Else
Msgbox("Seleccione Archivo")
End If
End If
End Sub


---- link boton que abre el archivo

Protected Sub Link_buuton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Link_buuton1.Click
nombreArchivo = Link_buuton1.Text
Dim ruta As String = "C:DOCUMENTOS_PROYECTOS" & nombreArchivo
Dim nombre As String = Path.GetFileName(ruta)
Dim extension As String = Path.GetExtension(ruta)
Dim tipo As String = ""

If Not (extension Is Nothing) Then
Select Case extension.ToLower()
Case ".txt"
tipo = "text/plain"
Case ".doc", ".docx", ".rtf"
tipo = "Application/msword"
Case ".xls"
tipo = "application/vnd.ms-excel"
Case ".ppt", ".pps"
tipo = "application/vnd.ms-powerpoint"
End Select
End If
Response.AppendHeader("content-disposition", "attachment; filename=" & nombre)
If tipo <> "" Then
Response.ContentType = tipo
End If
Response.WriteFile(ruta)
Response.End()

End Sub


saludos desde Lima Per?