Åbne en fil på en webserver ved hjælp af kode

Jeg bruger denne metode til det :

Private Sub DownloadFile(ByVal fname As String, _
                            ByVal forceDownload As Boolean)
        Dim path As String = MapPath(fname)
        Dim name As String = Mid(fname, InStrRev(fname, "/") + 1)
        Dim ext As String = Right(fname, 4)
        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 Else
                type = "text/plain"
        End Select

        If (forceDownload) Then
            Response.AppendHeader("content-disposition", _
            "attachment; filename=" + name)
        End If
        If type <> "" Then
            Response.ContentType = type
        End If

        Response.WriteFile(path)
        Response.End()

    End Sub

Og henter så en fil med :

DownloadFile(Request.QueryString("file"), True)

Mon ikke du kan tilpasse det til dit senarie ;o)

/Websam

Det ser godt ud! Er det ikke korrekt, at det er disse, der 'gør arbejdet':


Response.AppendHeader("content-disposition", "attachment; filename=" + "c:\inetpub\wwwroot\UploadFiles\PromisII\Test31.doc")
Response.ContentType = "Application/msword"
Response.WriteFile("c:\inetpub\wwwroot\UploadFiles\PromisII\Test31.doc")
Response.End()

?

Jeg har blot brudt den ned for at forstå, hvad der sker, men jeg vil bestemt bruge din funktion i mit program. Mange tak - vil du lægge et svar?

Når jeg har åbnet den attachede fil med Open i dialogboksen, så 'dræbes' samtidig min VS applikation, dvs. når man igen lukker den attachede fil, er ens oprindelige VS applikation lukket - hvordan undgår man det?