文件上傳/下載使用vb.net

Question

我想開發一個網站，使用vb.net和asp.net與Visual Studio 2008的文件上傳和下載選項。任何人都可以幫助我如何提供設施將文件上傳到服務器，然後下載鏈接可供普通用戶從服務器下載文件。提前致謝。

Answer 1

您可以使用asp:FileUpload控件上載文件到您的服務器，有權限的位置寫入文件

• FileUpload control overview
• FileUpload example

這就像把控制你的.aspx一樣簡單文件

<asp:FileUpload runat="server" ID="MyFileUpload" /> 

代碼隱藏

If (MyFileUpload.HasFile) Then 
    MyFileUpload.SaveAs('the full path to directory ' & filename) 

End If 

可以在數據庫中的文件描述存儲與他們的路徑，你的頁面，並顯示檢索該用戶

您也可以瀏覽目錄，並列出你的網頁

上的文件

Answer 2

使用FileUpLoad控件。 這裏上傳（在C＃）的樣本： http://www.c-sharpcorner.com/UploadFile/mahesh/FileUpload10092005172118PM/FileUpload.aspx

Answer 3

昏暗FileToCopy作爲字符串

FileToCopy = "F:\fd_demo_limits.swf" 


    Dim filenameTest = System.IO.Path.GetFileName(FileToCopy) 

    Dim path As String = "E:\" 

    Dim filename As String = "communicate.png" 

    Dim file_ As New System.IO.FileInfo(path + filename) 

    Dim file_ContentLength As String = "900000" ' check file Length file_.Length = 833740 
    If (file_.Length > file_ContentLength) Then 
     MsgBox("file length is large") 
     Exit Sub 
    End If 

    Dim allow_send_pic() As String = {".jpg", ".png", ".gif", "ico", ".png"} 

    Dim Extension As String = System.IO.Path.GetExtension(filename) 

    If Array.IndexOf(allow_send_pic, Extension.ToLower()) = -1 Then 
     MsgBox("File extension not valid") 
     Exit Sub 
    End If 

    If System.IO.File.Exists(FileToCopy) = True Then 

     While (System.IO.File.Exists(path + filename)) 
      filename = "Copy of " + filename 
     End While 

     System.IO.File.Copy(FileToCopy, path + filename) 
     MsgBox("File Copied") 


    End If