HyperLink1.Attributes["href"] = "file:///" +dr["sFileName"].ToString();

Dim sFileText As Label = CType(row.FindControl("lblFile"), Label)
            Dim strDownFile As String = sFileText.Text
            If e.CommandName = "sOpenIVR" Then
                strDownFile = strDownFile.Replace("КБ2", "ИВР")
            End If
            Dim strFilePath As String = Server.MapPath("SmetaFiles/" & strDownFile)
            Dim objFile As FileInfo = New FileInfo(strFilePath)
            If objFile.Exists Then
                Dim strAsterisk As String = String.Empty
                If Request.Browser.Browser.ToLower.StartsWith("firefox") Then
                    strAsterisk = "filename*="
                Else
                    strAsterisk = "filename="
                End If
                Response.Clear()
                Response.ContentType = "application/octet-stream"
                Response.AddHeader("Content-Disposition", "attachment;" + strAsterisk + Server.UrlPathEncode(objFile.Name))
                Response.Charset = "windows-1251"
                Response.AddHeader("Content-Length", objFile.Length.ToString())
                Response.Flush()
                Response.WriteFile(objFile.FullName)
                Response.End()
            Else
                'lblWarning.Text = "Нет файла ИВР!"
            End If