VB.NET中使用FTP下载文件的两种方法。

.net没有专门处理FTP的类，我们可以通过调用系统自带的FTP.EXE 或者是调用win32 API中的wininet.dll来完成基本操作。希望以下的代码能为大家抛砖引玉。

** 方法一：使用Ftp.exe ，通过process类来调用它。 **

Imports System.Diagnostics

...

Public Sub GetFileByCallFtp()

' 定义ProcessStartInfo，Process的启动信息。

Dim psi As New ProcessStartInfo

'ftp.exe的路径最好放到配置文件里。

psi.FileName = "C:\WINNT\system32\ftp.exe"

psi.RedirectStandardInput = False

psi.RedirectStandardOutput = True

'该值指示不使用操作系统Shell程序启动进程。

psi.UseShellExecute = False

'命令集文件名.注意,路径中不能有空格.

Dim fileName As String = "C\ftp.txt"

' -s:FileName表示,从文件中读取控制命令

psi.Arguments = "-s:" + fileName

Dim proc As Process

proc = Process.Start(psi)

'等待进程完成任务

proc.WaitForExit()

'在控制台输出结果

Console.WriteLine(proc.StandardOutput)

Console.ReadLine()

End Sub

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

ftp.txt 里的内容

** 方法二，使用win32 api —— wininet.dll **

首先是，api声明：

因为此测试程序，是VB.NET ConsoleApplication所以，api声明写在Module里，

方法是静态的。所以没加 Shared 关键字，这一点请大家注意。

 1<dllimport("wininet")> _   
 2Public  Function  InternetOpen(  ByVal  sAgent  As String  ,  ByVal  LAccessType  As Integer  ,  ByVal  sProxyName  As String,  _   
 3ByVal  SProxyBypass  As String  ,  ByVal  lFlags  As Integer  )  As Integer    
 4End Function 
 5
 6<dllimport("wininet")> _   
 7Public Function  InternetConnect(  ByVal  hInternetSession  As Integer  ,  ByVal  sServerName  As String  , _   
 8ByVal  nServerPort  As Integer  ,  ByVal  sUsername  As String  , _   
 9ByVal  sPassword  As String  ,  ByVal  lService  As Integer  , _   
10ByVal  lFlags  As Integer  ,  ByVal  lContext  As Integer  )  As Integer    
11End Function 
12
13<dllimport("wininet")> _   
14Public Function  FtpGetFile(  ByVal  hFtpSession  As Integer  ,  ByVal  lpszRemoteFile  As String  , _   
15ByVal  lpszNewFile  As String  ,  ByVal  fFailIfExists  As Boolean  , _   
16ByVal  dwFlagsAndAttributes  As Integer  , ByVal dwFlags  As Integer  , _   
17ByVal  dwContext  As Integer  )  As Boolean   
18End Function 
19
20<dllimport("wininet")> _   
21Public Function  InternetCloseHandle(  ByVal  hInet  As Integer  )  As Integer   
22End Function 
23
24**调用** ： 
25
26Public Sub  GetFileByCallWininetDLL()   
27Try    
28Dim  intinet  As Integer  = InternetOpen(  Nothing  , 0,  Nothing  ,  Nothing  , 0)   
29If  intinet &gt; 0  Then 
30
31'参数：intinet的session值，ftp地址，端口，用户名，密码，lService， lFlags，lContext 
32
33Dim  intinetconn  As Integer  = InternetConnect(intinet, "192.168.110.152", 0, "tokiwa", "tokiwa", 1, 0, 0) 
34
35If  intinetconn &gt; 0  Then 
36
37'下载某个文件到指定文件 
38
39Dim  ret  As Boolean  = FtpGetFile(intinetconn, "pagerror.gif", "C:\itest.gif", 0, 0, 1, 0) 
40
41If  ret  Then   
42Console.WriteLine("ok!")   
43Console.ReadLine()   
44End If   
45InternetCloseHandle(intinetconn)   
46InternetCloseHandle(intinet)   
47Else    
48Console.WriteLine("can't connect!")   
49Console.ReadLine()   
50End If 
51
52Else    
53Console.WriteLine("ftp wrong!")   
54Console.ReadLine()   
55End If    
56Catch  ex  As  Exception   
57Console.WriteLine(ex.Message)   
58Console.ReadLine()   
59End Try 
60
61End Sub</dllimport("wininet")></dllimport("wininet")></dllimport("wininet")></dllimport("wininet")>