vb.net中上傳于下載,vbs上傳文件

vb.net ftp上傳文件

Dim OpenFileDialog As New OpenFileDialog

創(chuàng)新互聯(lián)公司-專(zhuān)業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性?xún)r(jià)比延慶網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式延慶網(wǎng)站制作公司更省心,省錢(qián),快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋延慶地區(qū)。費(fèi)用合理售后完善，十載實(shí)體公司更值得信賴(lài)。

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: 在此處添加打開(kāi)文件的代碼。

textbox1.Text = FileName

End If

第一個(gè)按鈕 上傳

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)

第二個(gè)按鈕

vb.net怎么實(shí)現(xiàn)點(diǎn)擊下載，獲取文件路徑并下載

下載，直接通過(guò)url讀取文件，然后Response.OutputStream.Write()數(shù)據(jù)

下面提供個(gè)下載的靜態(tài)方法，是C#的，供參考：

///?summary

///?下載文件

///?/summary

///?param?name="fileName"下載的文件名稱(chēng)（包括擴(kuò)展名）/param

///?param?name="filePath"下載文件的絕對(duì)路徑/param

public?static?void?DownFile(string?fileName,?string?filePath)

{

//打開(kāi)要下載的文件，并把該文件存放在FileStream中????????????????

System.IO.FileStream?Reader?=?System.IO.File.OpenRead(filePath);

//文件傳送的剩余字節(jié)數(shù)：初始值為文件的總大小????????????????

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];//存放欲發(fā)送數(shù)據(jù)的緩沖區(qū)????????????????

int?ByteToRead;?//每次實(shí)際讀取的字節(jié)數(shù)???????????????

while?(Length??0)

{????

//剩余字節(jié)數(shù)不為零，繼續(xù)傳送????????????????????

if?(HttpContext.Current.Response.IsClientConnected)

{????

//客戶(hù)端瀏覽器還打開(kāi)著，繼續(xù)傳送????????????????????????

ByteToRead?=?Reader.Read(Buffer,?0,?10000);???????????????????//往緩沖區(qū)讀入數(shù)據(jù)????????????????????????

HttpContext.Current.Response.OutputStream.Write(Buffer,?0,?ByteToRead);????

//把緩沖區(qū)的數(shù)據(jù)寫(xiě)入客戶(hù)端瀏覽器????????????????????????

HttpContext.Current.Response.Flush();?//立即寫(xiě)入客戶(hù)端????????????????????????

Length?-=?ByteToRead;//剩余字節(jié)數(shù)減少????????????????????????????}

else

{?????????????????????????

//客戶(hù)端瀏覽器已經(jīng)斷開(kāi)，阻止繼續(xù)循環(huán)????????????????????????

Length?=?-1;

}

}????????????????//關(guān)閉該文件???????????????

Reader.Close();

}

QQ：121一九五五121

VB.NET中如何實(shí)現(xiàn)下載功能

Dim strPath As String = Server.MapPath("xxx/xxx.xxx") '這里是你的文件路徑以及名稱(chēng)后綴名，使用相對(duì)路徑即可,不過(guò)記得路徑最好是英文，用中文是否連接不到我就不知道了，記得是"/"哦！ Page.Response.Clear() Page.Response.AddHeader("Content-Type", "text/xml") Page.Response.AddHeader("Content-Disposition", "attachment;filename=") Page.Response.WriteFile(strPath) Page.Response.End() 路徑的話你可以使用變量的 所以這樣一來(lái)需要下載的文件就會(huì)相當(dāng)靈活 順便附送一個(gè)刪除文件的方法 System.IO.File.Delete(Server.MapPath("xxx/xxx.xxx")) 不過(guò)刪除文件跟寫(xiě)文件是一樣的 需要WEB服務(wù)器開(kāi)啟可寫(xiě)功能！、 好用的話記得給分哦 嘿嘿！

vb.net 實(shí)例下載

利用VB.NET向服務(wù)器上傳文件

文件上傳技術(shù)是一個(gè)很實(shí)用的技術(shù)，有著很廣泛的應(yīng)用，在ASP.NET自身的前一個(gè)版本ASP里實(shí)現(xiàn)這個(gè)功能，就必須使用第三方的組件或者自己開(kāi)發(fā)組件了，現(xiàn)在，用ASP.NET實(shí)現(xiàn)起來(lái)就簡(jiǎn)單得多了，不需要使用任何組件就可以實(shí)現(xiàn)上傳的功能了。

為了方便理解，可以把文件上傳分成兩種類(lèi)型：?jiǎn)我晃募蟼骱投辔募蟼鳌?/p>

單一文件上傳

首先單一文件上傳的方法，單一文件上傳就比較簡(jiǎn)單了，

下面是實(shí)現(xiàn)單一文件上傳的完整代碼：

%@ 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)

''''顯示上傳結(jié)果

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文件，然后在該文件所在目錄下創(chuàng)建一個(gè)存放文件的新目錄Files，運(yùn)行，先感受一下效果，然后再繼續(xù)看下面的講解

使用ASP.NET上傳文件，需要用到.NET框架的兩個(gè)類(lèi)：HttpPostedFile和HtmlInputFile，這兩個(gè)類(lèi)所在的命名空間分別是System.Web.HttpPostedFile和System.Web.UI.HtmlControls.HtmlInputFile，所以我們要在文件開(kāi)頭先導(dǎo)入這兩個(gè)命名空間，

其中的PostedFile表示上傳到服務(wù)器的文件，它包含幾個(gè)常用的屬性：

ContentLength:文件大小；

FileName :上傳文件的詳細(xì)路徑及文件名；

ContentType :上傳文件的文件類(lèi)型。

字符分割函數(shù)Split是用來(lái)取得文件名的，因?yàn)橥ㄟ^(guò)PostedFile.FileName獲得的是詳細(xì)的路徑及文件名。

多文件上傳

所謂的多文件上傳就是同時(shí)上傳多個(gè)文件，這個(gè)跟單一文件上傳大多是相同的，不同的是多文件上傳是把所有文件作為一個(gè)文件集合一起上傳到服務(wù)器的，我們需要的是把這個(gè)文件集合分解成一個(gè)個(gè)單一的文件，剩下的處理方法就跟單一文件上傳一樣了。

首先要知道要最多同時(shí)上傳多少個(gè)文件，然后就在form之間放多少個(gè)如下的HtmlInput控件：

input type="file" runat="server" size="50"

注意：這里的HtmlInput控件控件是不需要設(shè)置ID的

那如何在上傳到服務(wù)器的文件集合中取出一個(gè)個(gè)的文件？看下面的代碼：

dim i as integer

For i=0 to Request.Files.Count-1

‘使用Request.Files()來(lái)逐個(gè)獲取上傳的文件

dim myFile as HttpPostedFile=Request.Files(i)

''''這里的myFile就相當(dāng)于上例中的PostedFile，可以用myFile.FileName獲得文件名，etc

''''這里的處理代碼就跟單一文件上傳的一樣了

Next

現(xiàn)在掌握了ASP.NET文件上傳技術(shù)了

VB.NET如何實(shí)現(xiàn)文件的下載

給你一個(gè)遍歷所有盤(pán)符下的文件夾的例子加一個(gè)遍歷文件的就可以了。TreeNode node = new TreeNode("我的電腦"); treeView.Nodes.Add(node); //加入一個(gè)我的電腦節(jié)點(diǎn) string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驅(qū)動(dòng)器列表的集合 foreach(string name in drivesName) //用foreach遍歷集合 { TreeNode drivesNode = new TreeNode(name); node.Nodes.Add(drivesNode); //加到我的電腦節(jié)點(diǎn)下 }

網(wǎng)站名稱(chēng)：vb.net中上傳于下載,vbs上傳文件
網(wǎng)頁(yè)路徑：http://muchs.cn/article12/hciigc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、響應(yīng)式網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站維護(hù)、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)