zip file downloading problem?

See more:

VB

Hi,
I used zip store class in my web application which is in vb.net 2005 VS 2.0.By using this I have created a function that creates zip file after that I am calling a function to provide download option for created zip file .

Its working fine for local host. But when I am trying to call same through IP from my system or other system .its not working for zip file. But for other file like pdf which is in same directory with same permission ,this function is working fine.

can you suggest me where is the problem.

following is code of download function.....


'''calling function
DownloadFile(strFileName, strName)

Public Sub DownloadFile(ByVal fname As String, ByVal strname As String, Optional ByVal forcedownload As Boolean = True)
           Try
               'Dim path As Path
               Dim fullpath = IO.Path.GetFullPath(fname)
               Dim name = IO.Path.GetFileName(fullpath)
               Dim ext = IO.Path.GetExtension(fullpath)
               Dim type As String = ""
               If Not IsDBNull(ext) Then
                   ext = LCase(ext)
               End If
               Select Case ext
                   Case ".htm", ".html"
                       type = "text/HTML"
                   Case ".txt"
                       type = "text/plain"
                   Case ".doc", ".rtf"
                       type = "Application/msword"
                   Case ".csv", ".xls"
                       type = "Application/x-msexcel"
                   Case ".pdf"
                       type = "Application/pdf"
                   Case ".zip"
                       type = "application/x-zip-compressed"
                   Case Else
                       type = "text/plain"
               End Select
               If type <> "" Then
                   Response.ContentType = type
               End If
               Dim fs As FileStream
               fs = File.Open(fullpath, FileMode.Open)
               Dim bytBytes(fs.Length) As Byte
               fs.Read(bytBytes, 0, fs.Length)
               fs.Close()
               Response.Buffer = True
               Response.ClearContent()
               Response.ClearHeaders()
               Response.ContentType = "Application/pdf"
               Response.AddHeader("Content-Disposition", "attachment; filename=" & strname + ".pdf")
               Response.AddHeader("Content-Length", bytBytes.Length)
               Response.BinaryWrite(bytBytes)
               'Response.End()
           Catch ex As Exception
               ' do nothing
           End Try
       End Sub