將BinaryWrite保存到服務器路徑

Question

我正在將文件保存到遠程托管服務器上的SQL Server。 我可以上傳它們。 但是我需要將文件下載到遠程服務器路徑。 下面的代碼提取文件，但將其保存到客戶端。

我嘗試將Response.BinaryWrite（bytes）替換為Response.TransmitFile（Server.MapPath（“〜/ App_Data / DS / sailbig.jpg”），但找不到錯誤文件。

我只想提取存儲在sql中的文件並將其放在服務器上的目錄中，以便以后可以在代碼中使用它，但我無法弄清楚。 感謝您的幫助，這對我來說是一種愛好。

    Dim filePath As String = HttpContext.Current.Server.MapPath("~/App_Data/DS/")
    Dim bytes() As Byte = CType(dt.Rows(0)("Data"), Byte())
    response.Buffer = True
    response.Charset = ""
    response.Cache.SetCacheability(HttpCacheability.NoCache)
    response.ContentType = dt.Rows(0)("ContentType").ToString()
    Response.AddHeader("content-disposition", "attachment;filename=" & dt.Rows(0)("FileName").ToString())
    Response.BinaryWrite(bytes)
    Response.Flush()
    Response.End()

Answer 1

使用File.WriteAllBytes ：

Dim filePath As String = HttpContext.Current.Server.MapPath("~/App_Data/DS/")
Dim bytes() As Byte = CType(dt.Rows(0)("Data"), Byte())

File.WriteAllBytes(filePath & dt.Rows(0)("FileName").ToString(), bytes)