VB.NET中如何实现下载功能

Dim strPath As String = Server.MapPath("xxx/xxx.xxx") '这里是你的文件路径以及名称后缀名，使用相对路径即可,不过记得路径最好是英文，用中文是否连接不到我就不知道了，记得是"亏顷宴/"哦！ Page.Response.Clear() Page.Response.AddHeader("Content-Type", "销银text/xml") Page.Response.AddHeader("Content-Disposition", "attachmentfilename=") Page.Response.WriteFile(strPath) Page.Response.End() 路径的话你可以使用变量的 所以这样一来需要下载的文件就会相当灵乎伍活 顺便附送一个删除文件的方法 System.IO.File.Delete(Server.MapPath("xxx/xxx.xxx")) 不过删除文件跟写文件是一样的 需要WEB服务器开启可写功能！、 好用的话记得给分哦 嘿嘿！

如果是页面文件(竟服务器解析过的HTML代码枝物洞的话),有很多,可以用XMLHTTP,browser对象等,写起来相对都比较简单,如果想下载服务器源码(程序原代码),那要看猛枯对方网站服务器是否支持了(或者说有这方面的漏洞或提供源代码开放式下载)

---------------------------------------------------------------

XML HTTP的,在工程中引用XML类型库即可,返回值就是源代码

================================================================

你需要引用你需要在工程->引用中,选蚂帆择Microsoft XML类型库,最好选6.0

,代码刚做了个修改,多了个strUrl=""语句,我刚测试正常,如果需要可以传给你,就是下边的代码:

public function getData(byval strUrl as string) as string

Dim objHttp As MSXML2.ServerXMLHTTP

Set objHttp = New MSXML2.ServerXMLHTTP

getData=""

On Error GoTo 0

On Error GoTo ErrSubmit

objHttp.open "GET", strUrl, False

objHttp.send

getData = Trim$(Replace(objHttp.responseText, vbCrLf, ""))

exit function

ErrSubmit:

Msgbox err.description

set objHttp= Nothing

end function

==================================

在命令按钮的CLICK事件中写如下代码:

dim strData as string

strData=trim(Text1.text)

text2.Text=getData(strData)

给你一个遍历所有盘符下的文件夹的例子加一个遍历文件的租物就可以了弊物液。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)//加到我的电脑节点下 }

---