Client Class

Public NotInheritable Class Client
	Implements IDisposable

Dim instance As Client

public ref class Client sealed : IDisposable

[<SealedAttribute>]
type Client = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Private WithEvents uploadClient As New WebClient
Private WithEvents downloadClient As New WebClient

Private ftp As New Client("ftpsite", "username", "password")

Private Sub Test() Handles MyBase.Shown

    ftp.Connect()
    ftp.CreateDirectory("/DirectoryName", True)
    ftp.UploadFile(uploadClient, "C:\File.txt", "/DirectoryName/NewFile.txt", False)
    ftp.DownloadFile(downloadClient, "/DirectoryName/NewFile.txt", "c:\DownloadedFile.txt", True)

End Sub

Private Sub Client_UploadProgress(ByVal sender As Object, ByVal e As UploadProgressChangedEventArgs) _
Handles uploadClient.UploadProgressChanged

    Label_Upload.Text = e.ProgressPercentage & "%"

End Sub

Private Sub Client_UploadCompleted(ByVal sender As Object, ByVal e As UploadFileCompletedEventArgs) _
Handles uploadClient.UploadFileCompleted

    Label_UploadCompleted.Text = e.Result.ToString()

End Sub

Private Sub Client_DownloadProgress(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) _
Handles downloadClient.DownloadProgressChanged

    Label_Download.Text = e.ProgressPercentage & "%"

End Sub

Private Sub Client_DownloadCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs) _
 Handles downloadClient.DownloadFileCompleted

    Label_DownloadCompleted.Text = "Done!"

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.