- Private m_GettingDir As Boolean
- Private Sub AddMessage(ByVal msg As String)
- txtResults.Text = txtResults.Text & vbCrLf & msg
- txtResults.SelStart = Len(txtResults.Text)
- End Sub
- Private Sub cmdDownload_Click()
- Dim host_name As String
- Enabled = False
- MousePointer = vbHourglass
- txtResults.Text = "Working"
- txtResults.SelStart = Len(txtResults.Text)
- DoEvents
- ' You must set the URL before the user name and
- ' password. Otherwise the control cannot verify
- ' the user name and password and you get the error:
- '
- ' Unable to connect to remote host
- host_name = txtHost.Text
- If LCase$(Left$(host_name, 6)) <> "ftp://" Then _
- host_name = "ftp://" & host_name
- inetFTP.URL = host_name
- inetFTP.UserName = txtUserName.Text
- inetFTP.Password = txtPassword.Text
- ' Do not include the host name here. That will make
- ' the control try to use its default user name and
- ' password and you'll get the error again.
- inetFTP.Execute , "Get " & _
- txtRemoteFile.Text & " " & txtLocalFile.Text
- ' m_GettingDir = True
- ' inetFTP.Execute , "Dir"
- End Sub
- Private Sub cmdUpload_Click()
- Dim host_name As String
- Enabled = False
- MousePointer = vbHourglass
- txtResults.Text = "Working"
- txtResults.SelStart = Len(txtResults.Text)
- DoEvents
- ' You must set the URL before the user name and
- ' password. Otherwise the control cannot verify
- ' the user name and password and you get the error:
- '
- ' Unable to connect to remote host
- host_name = txtHost.Text
- If LCase$(Left$(host_name, 6)) <> "ftp://" Then _
- host_name = "ftp://" & host_name
- inetFTP.URL = host_name
- inetFTP.UserName = txtUserName.Text
- inetFTP.Password = txtPassword.Text
- ' Do not include the host name here. That will make
- ' the control try to use its default user name and
- ' password and you'll get the error again.
- inetFTP.Execute , "Put " & _
- txtLocalFile.Text & " " & txtRemoteFile.Text
- ' m_GettingDir = True
- ' inetFTP.Execute , "Dir"
- End Sub
- Private Sub inetFTP_StateChanged(ByVal State As Integer)
- Select Case State
- Case icError
- AddMessage "Error: " & _
- " " & inetFTP.ResponseCode & vbCrLf & _
- " " & inetFTP.ResponseInfo
- Case icNone
- AddMessage "None"
- Case icConnecting
- AddMessage "Connecting"
- Case icConnected
- AddMessage "Connected"
- Case icDisconnecting
- AddMessage "Disconnecting"
- Case icDisconnected
- AddMessage "Disconnected"
- Case icRequestSent
- AddMessage "Request Sent"
- Case icRequesting
- AddMessage "Requesting"
- Case icReceivingResponse
- AddMessage "Receiving Response"
- Case icRequestSent
- AddMessage "Request Sent"
- Case icResponseReceived
- AddMessage "Response Received"
- Case icResolvingHost
- AddMessage "Resolving Host"
- Case icHostResolved
- AddMessage "Host Resolved"
- Case icResponseCompleted
- AddMessage inetFTP.ResponseInfo
- If m_GettingDir Then
- Dim txt As String
- Dim chunk As Variant
- m_GettingDir = False
- ' Get the first chunk.
- chunk = inetFTP.GetChunk(1024, icString)
- DoEvents
- Do While Len(chunk) > 0
- txt = txt & chunk
- chunk = inetFTP.GetChunk(1024, icString)
- DoEvents
- Loop
- AddMessage "----------"
- AddMessage txt
- End If
- Case Else
- AddMessage "State = " & Format$(State)
- End Select
- Enabled = True
- MousePointer = vbDefault
- End Sub
Hoặc tải Form Project tại đây :
- howto_ftp.rar
- (6.41 KiB) Đã tải 313 lần
Upfile FTP VB.NET:
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.drivehq.com/file.txt"), System.Net.FtpWebRequest)
- request.Credentials = New System.Net.NetworkCredential("user", "password")
- request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
- Dim file() As Byte = System.IO.File.ReadAllBytes("c:\file.txt")
- Dim strz As System.IO.Stream = request.GetRequestStream()
- strz.Write(file, 0, file.Length)
- strz.Close()
- strz.Dispose()
- End Sub
- End Class
Clip tham khảo xem tại đây :
Hoặc có thể tham khảo clip này để biết cách upfile và download file FTP :
Chúc các bạn thành công !
