郵遞員就是傳遞人員，那在網絡上怎么傳遞文件的呢？這里和大家介紹一下吧。VB.NET文件傳送對于網絡編程來說是基本的功能，比如遠程控制軟件。在編制一個軟件時，我從網上下了很多傳文件的程序，這些程序提供的傳文件功能根本就不能用。傳文本還可以，傳二進制文件根本就不行。因此，作為一個基本的功能模塊，有必要單獨介紹一下。首先，VB.NET文件傳送字符串，你可以這樣寫：

Dim strData As String  
strData = \"Test\"  
Winsock1.SendData strData 

但是如果你傳送的二進制文件，你還能用String變量來存放嗎？從理論上分析是不行的，我也做了實驗，確實是不行的。文件雖然可以傳，但是接受的文件和發送的不一樣，原因可能是二進制文件里可以有任何\"字符\"，但是不是所有的字符都可以放在String變量里。
除了String類型的變量，VB中其他類型的變量都只有幾個字節長，難道一次只能發幾個字節嗎？那樣豈不是要累死機器了！其實，情況沒有那么悲觀，我們完全可以使用數組來解決這個問題，就是使用byte數組。把要VB.NET文件傳送都讀到數組里，然后發送出去。程序如下：

FileName 為要傳送的文件名，WinS為發送文件的WinSock控件。這是一個發送端的程序。

Public Sub SendFile(FileName As String, WinS As Winsock)  
Dim FreeF As Integer \'空閑的文件號  
Dim LenFile As Long \'文件的長度  
Dim bytData() As Byte \'存放數據的數組  
FreeF = FreeFile \'獲得空閑的文件號  
Open FileName For Binary As #FreeFile \'打開文件   
DoEvents   
 
LenFile = LOF(FreeFile) \'獲得文件長度  
ReDim bytData(1 To LenFile) \'根據文件長度重新定義數組大小  
Get #FreeFile, , bytData \'把文件讀入到數組里  
Close #FreeFile \'關閉文件  
WinS.SendData bytData \'發送數據  
End Sub  

接受端的程序如下：

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  
Dim bytData() As Byte  
Dim f  
f = FreeFile 
Open strFileName For Binary As #f  
ReDim bytData(1 To bytesTotal)  
Winsock1.GetData bytData  
Put #f, i, bytData  
ii = i + bytesTotal \'保證每次寫都是在文件的末尾, i是個全局變量  
Close #f  
End Sub 

這里有兩個需要注意的地方，ReDim Preserve bytData(1 To LenFile)，下標是從1開始的，如果你寫成ReDim bytData( LenFile)，下標就是從0開始了，數組就有LenFile+1長了。LenFile = LOF(FreeFile)中的LOF是獲得文件長度的函數，是VB里帶的，我見過很多例子用API，或者循環的讀直到末尾來獲取文件長度，這樣都是很麻煩的，使用LOF函數就可以了。這樣的程序，即可以傳送文本文件，也可以傳送二進制文件。但是你有沒有發現這個程序的問題呢？如果我要傳送一個50M的文件呢？系統可以為bytData分配50M的內存空間嗎？于是筆者拿一個50M的文件做實驗吧，接收到的文件和原來的文件不一樣，比原來的大。問題出在那呢？

首先，根據文件大小重新定義bytData數組的大小本身就有問題，系統是不可能無限制的給數組分配空間的，即使可以，也會造成系統響應變慢。在傳50M文件的時候，系統就跟死機了一樣。那么怎么解決這個問題呢，一個自然的想法就是把數據分段傳送。程序如下：發送程序, iPos是個全局變量,初始值為0。這個變量保存著當前數據的位置。Const iMax = 65535是每個數據塊的大小。

Dim FreeF As Integer \'空閑的文件號  
Dim LenFile As Long \'文件的長度  
Dim bytData() As Byte \'存放數據的數組  
FreeF = FreeFile \'獲得空閑的文件號  
Open FileName For Binary As #FreeF \'打開文件  
DoEvents  
LenFile = LOF(FreeF) \'獲得文件長度  
If LenFile <= iMax Then \'如果要發送的文件小于數據塊大小，直接發送  
ReDim bytData(1 To LenFile) \'根據文件長度重新定義數組大小  
Get #FreeF, , bytData \'把文件讀入到數組里  
Close #FreeF \'關閉文件  
WinS.SendData bytData \'發送數據  
Exit Sub  
End If  
\'文件大于數據塊大小，進行分塊發送  
Do Until (iPos >= (LenFile - iMax)) \'發送整塊數據的循環  
ReDim bytData(1 To iMax)  
Get #FreeF, iPos + 1, bytData  
WinS.SendData bytData  
iPosiPos = iPos + iMax \'移動iPos，使它指向下來要讀的數據  
Loop  
\'這里要注意的是，必須檢查文件有沒有剩下的數據，如果文件大小正好等于數據塊大小的  
\' 整數倍，那么就沒有剩下的數據了  
ReDim bytData(1 To LenFile - iPos) \'發送剩下的不夠一個數據塊的數據  
Get #FreeF, iPos + 1, bytData  
WinS.SendData bytData  
Close #FreeF 

下面是接收端的程序：

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  
Dim bytData() As Byte[Page]  
Dim lLenFile As Long  
Dim f  
f = FreeFile 
Open strFileName For Binary As #f \'strFileName是文件名  
lLenFile = LOF(f)  
ReDim bytData(1 To bytesTotal)  
Winsock1.GetData bytData  
If lLenFile = 0 Then \'lLenFile=0表示是第一次打開文件，這里有個問題，就是\'如果如果該文件存在的話，就會出錯，應該在打開前檢查文件是否存在。（這里我省略了）  
Put #f, 1, bytData  
Else  
Put #f, lLenFile + 1, bytData  
End If  
Close #f  
End Sub 

【編輯推薦】

1. 代碼講述VB.NET實現數據綁定
2. VB.NET TextBox組件高手經驗談
3. 瞬間掌握VB.NET Web Service
4. 實例分析VB.NET Treeview結構
5. 百寶箱之VB.NET設計制作窗體