VB.NET編程語言，是一款有微軟公司開發(fā)的針對面向?qū)ο蟮拈_發(fā)語言。我們可以通過它對文件進(jìn)行詳細(xì)的操作。比如VB.NET文件上傳的相關(guān)操作。在這里就針對這一方法進(jìn)行以此討論，希望對大家有所幫助。#t#

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

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

為了方便理解，可以把文件上傳分成兩種類型：單一文件上傳和多文件上傳。

單一文件上傳

首先單一VB.NET文件上傳的方法，單一文件上傳就比較簡單了，下面是實(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> 
< hr>< br> 
< span id="ShowUpLoadFile" runat=
"server">< /span> 
< /body> 
< /html> 

把上面的代碼保存成.aspx文件，然后在該文件所在目錄下創(chuàng)建一個存放文件的新目錄Files，運(yùn)行，先感受一下效果，然后再繼續(xù)看下面的講解

使用VB.NET文件上傳，需要用到.NET框架的兩個類：HttpPostedFile和HtmlInputFile，這兩個類所在的命名空間分別是System.Web.HttpPostedFile，System.Web.UI.HtmlControls.HtmlInputFile，所以我們要在文件開頭先導(dǎo)入這兩個命名空間，其中的PostedFile表示上傳到服務(wù)器的文件，它包含幾個常用的屬性：

ContentLength:文件大??；

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

ContentType :上傳文件的文件類型。

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

多文件上傳

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

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

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

注意：這里的HtmlInput控件控件是不需要設(shè)置ID的，那如何在上傳到服務(wù)器的文件集合中取出一個個的文件？看下面的代碼：

dim i as integer  
For i=0 to Request.Files.Count-1  
‘使用Request.Files()來逐個
獲取上傳的文件  
dim myFile as HttpPostedFile=
Request.Files(i)  
'這里的myFile就相當(dāng)于上例中的Posted
File，可以用myFile.FileName獲得文件名，etc  
'這里的處理代碼就跟單一文件上傳的一樣了  
Next 

通過這段代碼的介紹，相信應(yīng)該可以掌握了VB.NET文件上傳技術(shù)了