VB.net连接FTP操作

MSDN上的，看看对你有没有帮助。GOOD LUCK!

Imports SystemNet

Imports SystemIO

Module FtpSample

Sub Main(ByVal args() As String)

If argsLength = 0 OrElse args(0)Equals("/") Then

DisplayUsage()

ElseIf argsLength = 1 Then

Download(args(0))

ElseIf argsLength = 2 Then

If args(0)Equals("/list") Then

List(args(1))

Else

Upload(args(0), args(1))

End If

Else

ConsoleWriteLine("Unrecognized argument")

End If

End Sub

Private Sub DisplayUsage()

ConsoleWriteLine("USAGE:")

ConsoleWriteLine(" FtpSample [/ | <FTP download URL> | <local file>")

ConsoleWriteLine(" <FTP upload URL> | /list <FTP list URL>]")

ConsoleWriteLine()

ConsoleWriteLine("where")

ConsoleWriteLine(" FTP download URL URL of a file to download from an FTP server")

ConsoleWriteLine(" FTP upload URL Location on a FTP server to upload a file to")

ConsoleWriteLine(" FTP list URL Location on a FTP server to list the contents of")

ConsoleWriteLine(" local file A local file to upload to an FTP server")

ConsoleWriteLine()

ConsoleWriteLine(" Options:")

ConsoleWriteLine(" / Display this help message")

ConsoleWriteLine(" /list Specifies the list command")

ConsoleWriteLine()

ConsoleWriteLine("EXAMPLES:")

ConsoleWriteLine(" Download a file FtpSample ftp://myserver/downloadtxt")

ConsoleWriteLine(" Upload a file FtpSample uploadtxt ftp://myserver/uploadtxt")

End Sub

Private Sub Download(ByVal downloadUrl As String)

Dim responseStream As Stream = Nothing

Dim fileStream As FileStream = Nothing

Dim reader As StreamReader = Nothing

Try

Dim downloadRequest As FtpWebRequest = _

WebRequestCreate(downloadUrl)

Dim downloadResponse As FtpWebResponse = _

downloadRequestGetResponse()

responseStream = downloadResponseGetResponseStream()

Dim fileName As String = _

PathGetFileName(downloadRequestRequestUriAbsolutePath)

If fileNameLength = 0 Then

reader = New StreamReader(responseStream)

ConsoleWriteLine(readerReadToEnd())

Else

fileStream = FileCreate(fileName)

Dim buffer(1024) As Byte

Dim bytesRead As Integer

While True

bytesRead = responseStreamRead(buffer, 0, bufferLength)

If bytesRead = 0 Then

Exit While

End If

fileStreamWrite(buffer, 0, bytesRead)

End While

End If

ConsoleWriteLine("Download complete")

Catch ex As UriFormatException

ConsoleWriteLine(exMessage)

Catch ex As WebException

ConsoleWriteLine(exMessage)

Catch ex As IOException

ConsoleWriteLine(exMessage)

Finally

If reader IsNot Nothing Then

readerClose()

ElseIf responseStream IsNot Nothing Then

responseStreamClose()

End If

If fileStream IsNot Nothing Then

fileStreamClose()

End If

End Try

End Sub

Private Sub Upload(ByVal fileName As String, ByVal uploadUrl As String)

Dim requestStream As Stream = Nothing

Dim fileStream As FileStream = Nothing

Dim uploadResponse As FtpWebResponse = Nothing

Try

Dim uploadRequest As FtpWebRequest = WebRequestCreate(uploadUrl)

uploadRequestMethod = WebRequestMethodsFtpUploadFile

' UploadFile is not supported through an Http proxy

' so we disable the proxy for this request

uploadRequestProxy = Nothing

requestStream = uploadRequestGetRequestStream()

fileStream = FileOpen(fileName, FileModeOpen)

Dim buffer(1024) As Byte

Dim bytesRead As Integer

While True

bytesRead = fileStreamRead(buffer, 0, bufferLength)

If bytesRead = 0 Then

Exit While

End If

requestStreamWrite(buffer, 0, bytesRead)

End While

' The request stream must be closed before getting the response

requestStreamClose()

uploadResponse = uploadRequestGetResponse()

ConsoleWriteLine("Upload complete")

Catch ex As UriFormatException

ConsoleWriteLine(exMessage)

Catch ex As IOException

ConsoleWriteLine(exMessage)

Catch ex As WebException

ConsoleWriteLine(exMessage)

Finally

If uploadResponse IsNot Nothing Then

uploadResponseClose()

End If

If fileStream IsNot Nothing Then

fileStreamClose()

End If

If requestStream IsNot Nothing Then

requestStreamClose()

End If

End Try

End Sub

Private Sub List(ByVal listUrl As String)

Dim reader As StreamReader = Nothing

Try

Dim listRequest As FtpWebRequest = WebRequestCreate(listUrl)

listRequestMethod = WebRequestMethodsFtpListDirectoryDetails

Dim listResponse As FtpWebResponse = listRequestGetResponse()

reader = New StreamReader(listResponseGetResponseStream())

ConsoleWriteLine(readerReadToEnd())

ConsoleWriteLine("List complete")

Catch ex As UriFormatException

ConsoleWriteLine(exMessage)

Catch ex As WebException

ConsoleWriteLine(exMessage)

Finally

If reader IsNot Nothing Then

readerClose()

End If

End Try

End Sub

End Module

可以通过设置 Credentials 属性来指定用于连接服务器的凭据，也可以将它们包含在传递给 Create 方法的 URI 的 UserInfo 部分中。

从 FTP 服务器下载文件时，如果命令成功，所请求的文件的内容即在响应对象的流中。通过调用 GetResponseStream 方法，可以访问此流。

如果使用 FtpWebRequest 对象向服务器上载文件，则必须将文件内容写入请求流，请求流是通过调用 GetRequestStream 方法或其异步对应方法（BeginGetRequestStream 和 EndGetRequestStream 方法）获取的。必须写入流并在发送请求之前关闭该流。

请求是通过调用 GetResponse 方法或其异步对应方法（BeginGetResponse 和 EndGetResponse 方法）发送到服务器的。请求的操作完成时，会返回一个 FtpWebResponse 对象。FtpWebResponse 对象提供操作的状态以及从服务器下载的所有数据。

保存文件的步骤为：

关闭流，特别是写入流

关闭并保存文件

示例代码如下：

Imports SystemIO

Imports SystemText

Sub SaveFileDemo()

    '打开文件。如果文件不存在则创建新的文件

    Dim myFile As New IOFileStream("d:\datatxt", _

                                      FileModeOpenOrCreate, _

                                      FileAccessWrite)

    '在文件末尾添加一行 

    Dim tw As New StreamWriter(myFile)

    myFileSeek(0, SeekOriginEnd)

    twWriteLine("白刃格斗英雄连英模部队方队亮相阅兵")

    '关闭流

    twClose()

    '关闭文件并保存文件

    myFileClose()

End Sub

知道那文件夹里的文件数吗？ （text文件里面的数量不确定，就不行）

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

private sub cmmand1_click()

R= URLDownloadToFile(0,"http://wwwabccom/1exe" , "c:\1exe", 0, 0)

end sub

VBNET安装部署一)创建部署项目

1 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。

2 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。

3 单击“确定”关闭对话框。

4 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。

5 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。

VBNET安装部署二)将 主程序 项目的输出添加到部署项目中

1 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。

2 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。

3 单击“确定”关闭对话框。

4 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。

VBNET安装部署三)创建安装程序类

1 在“文件”菜单上指向“新建”，然后选择“项目”。

2 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。

3 单击“打开”关闭对话框。

4 从“项目”菜单中选择“添加新项”。

5 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。

6 单击“确定”关闭对话框。

7 详细代码附后。

VBNET安装部署四)创建自定义安装对话框

1 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。

2 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。

3 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。

4 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。

5 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。

6 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库

7 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库

8 选择 Edit1Label 属性并键入：数据库名称:

9 选择 Edit1Property 属性并键入 CUSTOMTEXTA1

10 选择 Edit1Value 属性并键入：dbservers

11 选择 Edit2Label 属性并键入：服务器名:

12 选择 Edit2Property 属性并键入 CUSTOMTEXTA2

13 选择 Edit2Value 属性并键入：(local)

14 选择 Edit3Label 属性并键入：用户名:

15 选择 Edit3Value 属性并键入：sa

16 选择 Edit3Property 属性并键入 CUSTOMTEXTA3

17 选择 Edit4Label 属性并键入：密码:

18 选择 Edit4Property 属性并键入 CUSTOMTEXTA4

19 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true

VBNET安装部署五)创建自定义操作

1 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。

2 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。

3 在“选择项目中的项”对话框中，双击“应用程序文件夹”。

4 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。

5 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。

附:/targetdir="[TARGETDIR]/"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。

VBNET安装部署六)添加文件

1 将SQL Server备份成文件DBdat添加到“setup1”项目(在企业管理器中右击数据库->所有工作->备份数据库,备份成一个文件，取名为DBdat)

2 将安装文件LisenceFilertf添加到“setup1”项目

3 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFilertf文件

4一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）

Crystal_Managed2003msm

（如果有水晶报表）

dotnetfxredist_x86msm

（net一定是必须的）

（如果有引用其他的dll）

5如果使用了水晶报表，手动加入要包含的文件：项目-->添加-->合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，为必要的

具体功能如下：

（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）

Crystal_Managed2003msm

Crystal_Managed2003_chsmsm

（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）

Crystal_Database_access2003msm

Crystal_Database_access2003_chsmsm

（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）

Crystal_regwiz2003msm

（如果报表文件使用了 ADONET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---msm 和 VC_User_STL71_RTL_X86_---msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）

VC_User_CRT71_RTL_X86_---msm VC_User_STL71_RTL_X86_---msm

(很多人经常出现查询错误，不妨加上这个)

6打开解决方案-->右键点击Crystal_regwiz2003msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）

VBNET安装部署七)打包时加入卸载功能：

方法一:

1在打包项目中添加文件msiexecexe(一般可在c:/windows/system32/下找到)

2在文件系统视图中选择应用程序文件夹,在msiexecexe上按右键,选择创建快捷方式,重命名快捷方式为"卸载"

3更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值

方法二:(推荐)

1先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到

2用VSnet建立一个新的控制台程序uninstexe文件

'power by: landlordh

'for 2000,xp,2003

Module uninstall

Sub Main()

Dim myProcess As Process =

New Process

If SystemEnvironmentOSVersion

ToStringIndexOf("NT 5") Then

myProcessStart("msiexec", "/X

{2B65D4A9-C146-4808-AB4B-321F

B0779559}") '改为自己的ProductCode

End If

myProcessClose()

End Sub

End Module

3将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninstexe的快捷方式

VBNET安装部署八)打包时加入net环境和MDAC功能：

把MS的PluginInstallermsi插件装上后,用vbnet的自带的打包工具打包,就会自动把net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包使用 Setup 项目安装 MDAC

1确保 Visual Studio NET 框架引导程序插件已安装。

2在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。

3选择 Requirements on Target Machine（搜索目标计算机） 节点。从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。

4选择 Search for RegistryEntry1 节点。在 Properties 窗口中，选择 RegKey 属性，并键入 Software/Microsoft/DataAccess。

5选择 Root 属性，并选择 vsdrrHKLM。

6选择 Value 属性，并键入 FullInstallVer。

7选择 Property 属性，并键入 MDACSEARCH。

8在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH>="26"。

9在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。

10将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。

下面的代码可以下载百度的LOGO，下载后的文件是c:\baidugif

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, fn As String) As Boolean

DownloadFile = (URLDownloadToFile(0, URL, fn, 0, 0) = 0)

End Function

Private Sub Command1_Click()

If DownloadFile("http://wwwbaiducom/img/shouye_b5486898c692066bd2cbaeda86d74448gif", "c:\baidugif") Then

MsgBox "下载成功！"

Else

MsgBox "下载失败！"

End If

End Sub

先在“部件”里添加internet Transfer Control控件，放到窗体上，名字按默认再添加一个按钮，名字也按默认然后复制下面的代码：Private Sub Command1_Click()Inet1Protocol = icHTTPInet1RemotePort = 80Inet1URL = " http://xueyn66com/Sound/song/cafee/whateveryoulikemp3" Inet1Execute , "Get"End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)'Dim aa As VariantDim vtData() As Byte '数据变量。If State = 12 ThenOpen "c:\tianqijump3" For Binary Access Write As #1vtData = Inet1GetChunk(1024, icByteArray)Do While UBound(vtData) > 0DoEventsPut #1, , vtDatavtData = Inet1GetChunk(1024, icByteArray)LoopPut #1, , vtDataClose #1MsgBox "下载完毕"End IfEnd Sub点击按钮就会下载一首歌到你的C盘，你可以改成其他东西。