使用vb.net上传/下载文件

时间:2012-10-27 15:32:59

标签: asp.net vb.net file-upload

我正在尝试使用vb.net和asp.net与Visual Studio 2008开发一个带文件上传和下载选项的网站。任何人都可以帮助我如何提供将文件上传到服务器的工具然后将为普通用户提供下载链接,以便从服务器下载文件。提前谢谢。

3 个答案:

答案 0 :(得分:1)

您可以使用asp:FileUpload控件将文件上传到您的服务器,这是一个有权写入文件的位置

就像将控件放在.aspx文件中一样简单

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

代码隐藏

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

End If

您可以将文件描述与其路径一起存储在数据库中,在页面上检索并显示给用户

您还可以浏览目录并列出页面上的文件

答案 1 :(得分:1)

使用FileUpLoad控件。 以下是上传示例(在c#中): http://www.c-sharpcorner.com/UploadFile/mahesh/FileUpload10092005172118PM/FileUpload.aspx

答案 2 :(得分:-1)

Dim FileToCopy As String

    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