Uses wodFtpDLX ActiveX Component

Dim WithEvents wodFtpDLX As wodFtpDLXCom
Private Sub Form_Load()
    Set wodFtpDLX = New wodFtpDLXCom

    ' Set connection parameters
    wodFtpDLX.HostName = "xx"
    wodFtpDLX.Login = "xx"
    wodFtpDLX.Password = "xx"
    wodFtpDLX.Protocol = FTP

    ' Initiate the connection
    wodFtpDLX.Connect
End Sub

' Connected event is triggered when Connection is successful/or fails. If connection failed
' ErrorCode will be <> 0, and in that case, ErrorText will contain description of an error
' which occured.
Private Sub wodFtpDLX_Connected(ByVal ErrorCode As Long, ByVal ErrorText As String)
    If ErrorCode = 0 Then
        wodFtpDLX.PutFile "C:\local_filename", "/home/"
    End If
End Sub

' When method finishes execution, Done event is triggered. This is where we will disconnect.
Private Sub wodFtpDLX_Done(ByVal ErrorCode As Long, ByVal ErrorText As String)
    wodFtpDLX.Disconnect
End Sub

Private Sub wodFtpDLX_Progress(ByVal Position As Long, ByVal Total As Long)
    Debug.Print Position & " / " & Total
End Sub

Uses wodFtpDLX.NET component

private WeOnlyDo.Client.FtpDLX wodFtpDLX;
private void Form1_Load(object sender, EventArgs e)
{
    wodFtpDLX = new WeOnlyDo.Client.FtpDLX();
    // Declare events
    wodFtpDLX.ConnectedEvent +=new WeOnlyDo.Client.FtpDLX.ConnectedDelegate(wodFtpDLX_ConnectedEvent);
    wodFtpDLX.DoneEvent +=new WeOnlyDo.Client.FtpDLX.DoneDelegate(wodFtpDLX_DoneEvent);
    wodFtpDLX.ProgressEvent +=new WeOnlyDo.Client.FtpDLX.ProgressDelegate(wodFtpDLX_ProgressEvent);

    // Set connection parameters
    wodFtpDLX.Hostname = "xx";
    wodFtpDLX.Login = "xx";
    wodFtpDLX.Password = "xx";
    wodFtpDLX.Protocol = WeOnlyDo.Client.Protocols.FTP;

    // Initiate the connection
    wodFtpDLX.Connect();
}

// When method finishes execution, Done event is triggered. This is where we will disconnect.
void wodFtpDLX_DoneEvent(object Sender, WeOnlyDo.Client.FtpDoneArgs Args)
{
    wodFtpDLX.Disconnect();
}

// Connected event is triggered when Connection is successful/or fails. If connection failed
// Args parameter will contain exception of an error
void wodFtpDLX_ConnectedEvent(object Sender, WeOnlyDo.Client.FtpConnectedArgs Args)
{
    wodFtpDLX.PutFile("C:\\local_filename", "/home/");

// Progress event will will be triggered multiple times, providing you with amount of data
// transferred so far, as well as size of the file being uploaded.
void wodFtpDLX_ProgressEvent(object Sender, WeOnlyDo.Client.FtpProgressArgs Args)
{
    Console.WriteLine(Args.Position + " / " + Args.Total);
}

Uses wodFtpDLX.NET component

Dim WithEvents wodFtpDLX As WeOnlyDo.Client.FtpDLX
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wodFtpDLX = New WeOnlyDo.Client.FtpDLX
    ' Set connection parameters
    wodFtpDLX.Hostname = "xx"
    wodFtpDLX.Login = "xx"
    wodFtpDLX.Password = "xx"
    wodFtpDLX.Protocol = WeOnlyDo.Client.Protocols.FTP

    ' Initiate the connection
    wodFtpDLX.Connect()
End Sub

' Connected event is triggered when Connection is successful/or fails. If connection failed
' Args parameter will contain exception of an error
Private Sub wodFtpDLX_ConnectedEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Client.FtpConnectedArgs) Handles wodFtpDLX.ConnectedEvent
    wodFtpDLX.PutFile("C:\\local_filename", "/home/")
End Sub

'When method finishes execution, Done event is triggered. This is where we will disconnect.
Private Sub wodFtpDLX_DoneEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Client.FtpDoneArgs) Handles wodFtpDLX.DoneEvent
    wodFtpDLX.Disconnect()
End Sub

' Progress event will will be triggered multiple times, providing you with amount of data
' transferred so far, as well as size of the file being uploaded.
Private Sub wodFtpDLX_ProgressEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Client.FtpProgressArgs) Handles wodFtpDLX.ProgressEvent
    Debug.Print(Args.Position & " / " & Args.Total)
End Sub