vb.net ftp上傳文件

Dim OpenFileDialog As New OpenFileDialog

創(chuàng)新互聯(lián)公司是一家專業(yè)提供尼元陽企業(yè)網(wǎng)站建設,專注與成都網(wǎng)站建設、網(wǎng)站制作、html5、小程序制作等業(yè)務。10年已為尼元陽眾多企業(yè)、政府機構等服務。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進行中。

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此處添加打開文件的代碼。

textbox1.Text = FileName

End If

第一個按鈕 上傳

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登錄名1", "登錄密碼", True, 100)

第二個按鈕

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 _

)

參數(shù)

address

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

destinationFileName

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

userName

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

password

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

showUI

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

connectionTimeout

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

overwrite

Boolean。指定是否改寫現(xiàn)有文件。默認為 False。

onUserCancel

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

VB.NET 怎么將FTP文件移動到FTP下另一個目錄中去

給你個方法原型：

File.Copy("~\*.*","~\",Boolean)第一個參數(shù)是String,指定原文件的Path；

第二個參數(shù)是String,指定拷貝目標Path；

第三個參數(shù)是Boolean，表示覆蓋同名文件。

自己修改一下即可。

VBNET從FTP下載文件，需要先判斷文件是否存在嗎

需要。

在實際使用FTP文件服務器的過程中，經(jīng)常需要遠程下載解析文件。為提高效率，需要判斷文件存在與否，有選擇的進行解析。

FTP協(xié)議是一個用于在計算機網(wǎng)絡上客戶端和服務器之間進行文件傳輸?shù)膽脤訁f(xié)議，包括FTP服務器和FTP客戶端兩個組成部分。FTP能操作任何類型的文件而不需要進一步處理，但有著極高的延時，從開始請求到第一次接收需求數(shù)據(jù)之間的時間較長，并不時地執(zhí)行一些冗長的登錄進程。

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 屬性來指定用于連接服務器的憑據(jù)，也可以將它們包含在傳遞給 Create 方法的 URI 的 UserInfo 部分中。

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

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

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

用vb.net ftp文件下載

My.Computer.Network.DownloadFile("", "D:\s.bat", "ftp賬號", "ftp密碼", True, 100, True)