ftp/Module1.vb

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
' Technical support: support@smartftp.com
 
Module Module1
 
    Dim ftpConnection As sfFTPLib.FTPConnectionMTA
 
    Sub Main()
        Dim ftplibGlobal = New sfFTPLib.[Global]
 
        ' Load License Key
        ' Uncomment to load license
        'ftplibGlobal.LoadLicense("XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX")
 
        ftpConnection = New sfFTPLib.FTPConnectionMTA
 
        ' Attach the event handler
        AddHandler ftpConnection.OnDisconnect, AddressOf OnDisconnect
 
        ' Favorite settings
        ftpConnection.Host = "ftp.smartftp.com"
        ftpConnection.Port = 21
        ftpConnection.Protocol = sfFTPLib.Protocol.ftpProtocolPreferTLS
        ftpConnection.Username = "anonymous"
        ftpConnection.Password = "test@test.com"
        'ftpConnection.MLST = True
        'ftpConnection.Passive = True
 
        ' Proxy settings
        'ftpConnection.Proxy.Type = sfFTPLib.ProxyType.ftpProxyTypeNone
 
        Dim fileLogger = ftpConnection.SetFileLogger()
        fileLogger.File = "VBDemo.log"
 
        ftpConnection.Connect()
        ftpConnection.ChangeDirectory("/")
 
        Dim directoryItems = ftpConnection.ReadDirectory()
        Dim item As sfFTPLib.FTPItem
        For Each item In directoryItems
            If item.Type = sfFTPLib.ItemType.ftpItemTypeRegularFile Then
                System.Console.WriteLine("Type={0}; Name={1}; Size={2}", item.Type, item.Name, item.Size)
            Else
                System.Console.WriteLine("Type={0}; Name={1}", item.Type, item.Name)
            End If
        Next
 
        ' Download File
        Dim startPosition As ULong = 0
        Dim endPosition As ULong = ULong.MaxValue
        ftpConnection.DownloadFileEx("This is a DEMO server.txt", "This is a DEMO server.txt", startPosition, endPosition, Nothing)
 
        System.Console.WriteLine("DownloadFile() successful.")
        System.Console.WriteLine("LastTransferBytes = {0} B", ftpConnection.LastTransferBytes)
        System.Console.WriteLine("LastTransferTime = {0} s", ftpConnection.LastTransferTime)
        System.Console.WriteLine("LastTransferSpeed = {0} B/s", ftpConnection.LastTransferSpeed)
 
        ' Upload file
        'ftpConnection.UploadFileEx("c:\test.dat", "test.dat", startPosition, Nothing);
 
        ftpConnection.Disconnect()
 
        ftpConnection = Nothing
 
    End Sub
 
    Sub OnDisconnect()
        System.Console.WriteLine("OnDisconnect")
    End Sub
 
End Module