甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
Dim OpenFileDialog As New OpenFileDialog
创新互联公司-专业网站定制、快速模板网站建设、高性价比延庆网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式延庆网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖延庆地区。费用合理售后完善，十载实体公司更值得信赖。
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: 在此处添加打开文件的代码。
textbox1.Text = FileName
End If
第一个按钮 上传
Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))
MessageBox.Show(filelast)
My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登录名1", "登录密码", True, 100)
第二个按钮
下载，直接通过url读取文件，然后Response.OutputStream.Write()数据
下面提供个下载的静态方法，是C#的，供参考：
/// summary
/// 下载文件
/// /summary
/// param name="fileName"下载的文件名称（包括扩展名）/param
/// param name="filePath"下载文件的绝对路径/param
public static void DownFile(string fileName, string filePath)
{
//打开要下载的文件，并把该文件存放在FileStream中
System.IO.FileStream Reader = System.IO.File.OpenRead(filePath);
//文件传送的剩余字节数：初始值为文件的总大小
long Length = Reader.Length;
HttpContext.Current.Response.Buffer = false;
HttpContext.Current.Response.AddHeader("Connection", "Keep-Alive");
HttpContext.Current.Response.ContentType = "application/octet-stream";
HttpContext.Current.Response.Charset = "utf-8";
HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment; filename=" + System.Web.HttpUtility.UrlEncode(fileName));
HttpContext.Current.Response.AddHeader("Content-Length", Length.ToString());
byte[] Buffer = new Byte[10000];//存放欲发送数据的缓冲区
int ByteToRead; //每次实际读取的字节数
while (Length 0)
{
//剩余字节数不为零，继续传送
if (HttpContext.Current.Response.IsClientConnected)
{
//客户端浏览器还打开着，继续传送
ByteToRead = Reader.Read(Buffer, 0, 10000); //往缓冲区读入数据
HttpContext.Current.Response.OutputStream.Write(Buffer, 0, ByteToRead);
//把缓冲区的数据写入客户端浏览器
HttpContext.Current.Response.Flush(); //立即写入客户端
Length -= ByteToRead;//剩余字节数减少 }
else
{
//客户端浏览器已经断开，阻止继续循环
Length = -1;
}
} //关闭该文件
Reader.Close();
}
QQ：121一九五五121
Dim strPath As String = Server.MapPath("xxx/xxx.xxx") '这里是你的文件路径以及名称后缀名，使用相对路径即可,不过记得路径最好是英文，用中文是否连接不到我就不知道了，记得是"/"哦！ Page.Response.Clear() Page.Response.AddHeader("Content-Type", "text/xml") Page.Response.AddHeader("Content-Disposition", "attachment;filename=") Page.Response.WriteFile(strPath) Page.Response.End() 路径的话你可以使用变量的 所以这样一来需要下载的文件就会相当灵活 顺便附送一个删除文件的方法 System.IO.File.Delete(Server.MapPath("xxx/xxx.xxx")) 不过删除文件跟写文件是一样的 需要WEB服务器开启可写功能！、 好用的话记得给分哦 嘿嘿！
利用VB.NET向服务器上传文件
文件上传技术是一个很实用的技术，有着很广泛的应用，在ASP.NET自身的前一个版本ASP里实现这个功能，就必须使用第三方的组件或者自己开发组件了，现在，用ASP.NET实现起来就简单得多了，不需要使用任何组件就可以实现上传的功能了。
为了方便理解，可以把文件上传分成两种类型：单一文件上传和多文件上传。
单一文件上传
首先单一文件上传的方法，单一文件上传就比较简单了，
下面是实现单一文件上传的完整代码：
%@ Import Namespace="System" %
%@ Import Namespace="System.Web.HttpPostedFile" %
%@ Import Namespace="System.Web.UI.HtmlControls.HtmlInputFile" %
script language="VB" runat="server"
Sub UpLoad(Src As Object, E As EventArgs)
If UploadFile.PostedFile.ContentLength=0 then
ShowUpLoadFile.innerText="上传失败或文件不存在！"
Else
''''获取文件名
dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")
dim FileName as String=Temp(Temp.Length-1)
''''保存文件
UploadFile.PostedFile.SaveAs(Server.MapPath(".") "\Files\" FileName)
''''显示上传结果
ShowUpLoadFile.InnerHtml="文件上传成功！br上传文件名：" FileName
End If
End Sub
/script
html
body
form runat="server" enctype="multipart/form-data"
input type="file" id="UploadFile" runat="server" size="50"br
asp:button runat="server" Text="立即上传" onClick="Upload" /
/form
hrbr
span id="ShowUpLoadFile" runat="server"/span
/body
/html
把上面的代码保存成.aspx文件，然后在该文件所在目录下创建一个存放文件的新目录Files，运行，先感受一下效果，然后再继续看下面的讲解
使用ASP.NET上传文件，需要用到.NET框架的两个类：HttpPostedFile和HtmlInputFile，这两个类所在的命名空间分别是System.Web.HttpPostedFile和System.Web.UI.HtmlControls.HtmlInputFile，所以我们要在文件开头先导入这两个命名空间，
其中的PostedFile表示上传到服务器的文件，它包含几个常用的属性：
ContentLength:文件大小；
FileName :上传文件的详细路径及文件名；
ContentType :上传文件的文件类型。
字符分割函数Split是用来取得文件名的，因为通过PostedFile.FileName获得的是详细的路径及文件名。
多文件上传
所谓的多文件上传就是同时上传多个文件，这个跟单一文件上传大多是相同的，不同的是多文件上传是把所有文件作为一个文件集合一起上传到服务器的，我们需要的是把这个文件集合分解成一个个单一的文件，剩下的处理方法就跟单一文件上传一样了。
首先要知道要最多同时上传多少个文件，然后就在form之间放多少个如下的HtmlInput控件：
input type="file" runat="server" size="50"
注意：这里的HtmlInput控件控件是不需要设置ID的
那如何在上传到服务器的文件集合中取出一个个的文件？看下面的代码：
dim i as integer
For i=0 to Request.Files.Count-1
‘使用Request.Files()来逐个获取上传的文件
dim myFile as HttpPostedFile=Request.Files(i)
''''这里的myFile就相当于上例中的PostedFile，可以用myFile.FileName获得文件名，etc
''''这里的处理代码就跟单一文件上传的一样了
Next
现在掌握了ASP.NET文件上传技术了
给你一个遍历所有盘符下的文件夹的例子加一个遍历文件的就可以了。TreeNode node = new TreeNode("我的电脑"); treeView.Nodes.Add(node); //加入一个我的电脑节点 string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驱动器列表的集合 foreach(string name in drivesName) //用foreach遍历集合 { TreeNode drivesNode = new TreeNode(name); node.Nodes.Add(drivesNode); //加到我的电脑节点下 }