ftp上傳文件用vb.net怎么實現

My.Computer.Network.UploadFile(本地文件路徑,?ftp服務器路徑包括文件名,用戶名,密碼)

創新互聯是一家集網站建設、網站設計、網站頁面設計、網站優化SEO優化為一體的專業網站建設公司，已為成都等多地近百家企業提供網站建設服務。追求良好的瀏覽體驗,以探求精品塑造與理念升華,設計最適合用戶的網站頁面。 合作只是第一步，服務才是根本,我們始終堅持講誠信，負責任的原則，為您進行細心、貼心、認真的服務,與眾多客戶在蓬勃發展的市場環境中,互促共生。

vb.net2008如何操作FTP服務器?比如登錄并保持登錄狀態，然后遍歷根目錄及指定的目錄，以獲

具體方法如下：”、打開Serv－U的配置管理界面puzb在“全局用戶”或者“域用戶”中選擇“創建cgko修改和刪除用戶帳戶”；　2、在“創建，修改和刪除用戶帳戶”的界面，選擇“添加”。；3、在“用戶屬性“對話框，“用戶信息”下的用戶名為：Anonymous，密碼為空，為其指定FTP的根目錄?！?、然后在“目錄訪問“選項，點擊“添加”，為其指定訪問權限和目錄?！?、最后點擊“保存”6這樣我們就成功添加了匿名用戶。

VB.net連接FTP操作

MSDN上的，看看對你有沒有幫助。GOOD LUCK!

Imports System.Net

Imports System.IO

Module FtpSample

Sub Main(ByVal args() As String)

If args.Length = 0 OrElse args(0).Equals("/?") Then

DisplayUsage()

ElseIf args.Length = 1 Then

Download(args(0))

ElseIf args.Length = 2 Then

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

List(args(1))

Else

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

End If

Else

Console.WriteLine("Unrecognized argument.")

End If

End Sub

Private Sub DisplayUsage()

Console.WriteLine("USAGE:")

Console.WriteLine(" FtpSample [/? | FTP download URL | local file")

Console.WriteLine(" FTP upload URL | /list FTP list URL]")

Console.WriteLine()

Console.WriteLine("where")

Console.WriteLine(" FTP download URL URL of a file to download from an FTP server.")

Console.WriteLine(" FTP upload URL Location on a FTP server to upload a file to.")

Console.WriteLine(" FTP list URL Location on a FTP server to list the contents of.")

Console.WriteLine(" local file A local file to upload to an FTP server.")

Console.WriteLine()

Console.WriteLine(" Options:")

Console.WriteLine(" /? Display this help message.")

Console.WriteLine(" /list Specifies the list command.")

Console.WriteLine()

Console.WriteLine("EXAMPLES:")

Console.WriteLine(" Download a file FtpSample ")

Console.WriteLine(" Upload a file FtpSample upload.txt ")

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 = _

WebRequest.Create(downloadUrl)

Dim downloadResponse As FtpWebResponse = _

downloadRequest.GetResponse()

responseStream = downloadResponse.GetResponseStream()

Dim fileName As String = _

Path.GetFileName(downloadRequest.RequestUri.AbsolutePath)

If fileName.Length = 0 Then

reader = New StreamReader(responseStream)

Console.WriteLine(reader.ReadToEnd())

Else

fileStream = File.Create(fileName)

Dim buffer(1024) As Byte

Dim bytesRead As Integer

While True

bytesRead = responseStream.Read(buffer, 0, buffer.Length)

If bytesRead = 0 Then

Exit While

End If

fileStream.Write(buffer, 0, bytesRead)

End While

End If

Console.WriteLine("Download complete.")

Catch ex As UriFormatException

Console.WriteLine(ex.Message)

Catch ex As WebException

Console.WriteLine(ex.Message)

Catch ex As IOException

Console.WriteLine(ex.Message)

Finally

If reader IsNot Nothing Then

reader.Close()

ElseIf responseStream IsNot Nothing Then

responseStream.Close()

End If

If fileStream IsNot Nothing Then

fileStream.Close()

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 = WebRequest.Create(uploadUrl)

uploadRequest.Method = WebRequestMethods.

' UploadFile is not supported through an Http proxy

' so we disable the proxy for this request.

uploadRequest.Proxy = Nothing

requestStream = uploadRequest.GetRequestStream()

fileStream = File.Open(fileName, FileMode.Open)

Dim buffer(1024) As Byte

Dim bytesRead As Integer

While True

bytesRead = fileStream.Read(buffer, 0, buffer.Length)

If bytesRead = 0 Then

Exit While

End If

requestStream.Write(buffer, 0, bytesRead)

End While

' The request stream must be closed before getting the response.

requestStream.Close()

uploadResponse = uploadRequest.GetResponse()

Console.WriteLine("Upload complete.")

Catch ex As UriFormatException

Console.WriteLine(ex.Message)

Catch ex As IOException

Console.WriteLine(ex.Message)

Catch ex As WebException

Console.WriteLine(ex.Message)

Finally

If uploadResponse IsNot Nothing Then

uploadResponse.Close()

End If

If fileStream IsNot Nothing Then

fileStream.Close()

End If

If requestStream IsNot Nothing Then

requestStream.Close()

End If

End Try

End Sub

Private Sub List(ByVal listUrl As String)

Dim reader As StreamReader = Nothing

Try

Dim listRequest As FtpWebRequest = WebRequest.Create(listUrl)

listRequest.Method = WebRequestMethods.

Dim listResponse As FtpWebResponse = listRequest.GetResponse()

reader = New StreamReader(listResponse.GetResponseStream())

Console.WriteLine(reader.ReadToEnd())

Console.WriteLine("List complete.")

Catch ex As UriFormatException

Console.WriteLine(ex.Message)

Catch ex As WebException

Console.WriteLine(ex.Message)

Finally

If reader IsNot Nothing Then

reader.Close()

End If

End Try

End Sub

End Module

可以通過設置 Credentials 屬性來指定用于連接服務器的憑據，也可以將它們包含在傳遞給 Create 方法的 URI 的 UserInfo 部分中。

從 FTP 服務器下載文件時，如果命令成功，所請求的文件的內容即在響應對象的流中。通過調用 GetResponseStream 方法，可以訪問此流。

如果使用 FtpWebRequest 對象向服務器上載文件，則必須將文件內容寫入請求流，請求流是通過調用 GetRequestStream 方法或其異步對應方法（BeginGetRequestStream 和 EndGetRequestStream 方法）獲取的。必須寫入流并在發送請求之前關閉該流。

請求是通過調用 GetResponse 方法或其異步對應方法（BeginGetResponse 和 EndGetResponse 方法）發送到服務器的。請求的操作完成時，會返回一個 FtpWebResponse 對象。FtpWebResponse 對象提供操作的狀態以及從服務器下載的所有數據。

vb.net FTP問題？

If My.Computer.Network.IsAvailable Then

'如果可用

Else

'不可用

End If

Public Sub DownloadFile ( _

address As Uri, _

destinationFileName As String, _

userName As String, _

password As String, _

showUI As Boolean, _

connectionTimeout As Integer, _

overwrite As Boolean, _

onUserCancel As UICancelOption _

)

參數

address

String 或 Uri。要下載的文件的路徑，包括文件名和主機地址。必選。

destinationFileName

String。下載文件的文件名和路徑。必選。

userName

String。要進行身份驗證的用戶名。默認值為空字符串 ""。

password

String。要進行身份驗證的密碼。默認值為空字符串 ""。

showUI

Boolean。指定是否顯示操作進度。默認為 False。

connectionTimeout

Int32。以毫秒為單位的超時間隔。默認值為 100 秒。

overwrite

Boolean。指定是否改寫現有文件。默認為 False。

onUserCancel

UICancelOption。指定當用戶在對話框（此對話框在 ShowUI 設置為 True 時顯示）上單擊“取消”或“否”時的行為。默認為 ThrowException。

分享題目：vb.net操作ftp類 vbnet pdf文件操作
分享網址：http://vcdvsql.cn/article0/dopieoo.html

成都網站建設公司_創新互聯，為您提供網站內鏈、網站制作、商城網站、服務器托管、外貿建站、企業建站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯