Response.Buffer = True
Response.Clear()
Response.Expires = 0
 
Dim strFileName As String
Dim strFilePath As String
Dim objStream As Object
 
' Ermitteln des Dateipfades
strFilePath = ladeAnlagePfadPerID(Request.QueryString.Item("file"))
 
' Wenn Datei gefunden wurde, dann Dateiname extrahieren
If Not IsNothing(strFilePath) AndAlso System.IO.File.Exists(strFilePath) Then
    strFileName = System.IO.Path.GetFileName(strFilePath)
Else
    ' Fehlerbehandlung...
End If
 
' ContentType per Funktion ermitteln
Response.ContentType = getContentType(strFilePath) ' zb. application/msword
 
Const adTypeBinary As Integer = 1
 
Response.AddHeader("Content-Disposition", "attachment;filename=" & strFileName)
 
' --- Erzeugen des Streamobjekts
objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open()
 
' --- Auslesen des Dateinhalts. Hier wird ein absoluter Pfad verlangt.
objStream.LoadFromFile(strFilePath)
 
' --- Ausgabe per Response.BinaryWrite
Response.BinaryWrite(objStream.Read(objStream.Size))
 
' --- Schliessen des Stream-Objekts
objStream.Close()
objStream = Nothing
 
Response.Flush()