HOME DOWNLOAD PURCHASE DOCS SAMPLES SUPPORT CONTACT
EaseWe FTP OCX ActiveX Control Samples
The following samples are only a segment of the demo application,
please download the trial version for complete sample applications.
Getting Started::How to insert the ocx into my project?
Connect to ftp server: Visual Basic Powerbuilder Javascript Delphi C#.Net
Upload file: Visual Basic Powerbuilder Javascript Delphi C#.Net
Upload directory: Visual Basic Powerbuilder Javascript Delphi C#.Net
Upload multiple files/directories: Visual Basic Powerbuilder Javascript Delphi C#.Net
Download file: Visual Basic Powerbuilder Javascript Delphi C#.Net
Download directory: Visual Basic Powerbuilder Javascript Delphi C#.Net
Download multiple files/directories: Visual Basic Powerbuilder Javascript Delphi C#.Net
Show transfer progress: Visual Basic Powerbuilder Javascript Delphi C#.Net
Get file size and last modified time: Visual Basic Powerbuilder Javascript Delphi C#.Net
Get directory listing: Visual Basic Powerbuilder Javascript Delphi C#.Net
 
Visual Basic Samples:Back to top
 
Connect to ftp server:
FtpLibrary1.ServerName ="host name or ip" 
FtpLibrary1.Username ="Username"
FtpLibrary1.Password ="Password"
FtpLibrary1.Port =21
If FtpLibrary1.Connect Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Upload file:
FtpLibrary1.LocalPath ="c:\filename.txt"
FtpLibrary1.RemotePath ="filename.txt"
If FtpLibrary1.Upload Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Upload directory 'The last character of the path must be '\'
FtpLibrary1.LocalPath ="c:\folder\" 
FtpLibrary1.RemotePath ="folder\"
If FtpLibrary1.Upload Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Upload multiple files/directories: 'Each path is separated by '|'
FtpLibrary1.LocalPath ="c:\file.txt|c:\file1.txt|c:\folder\" 
FtpLibrary1.RemotePath ="folder\"
If FtpLibrary1.Upload Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Download file: Back to top
FtpLibrary1.RemotePath ="file.txt" 
FtpLibrary1.LocalPath ="c:\file.txt"
If FtpLibrary1.Download Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Download directory: 'The last character of the path must be '\'
FtpLibrary1.RemotePath ="folder\"
FtpLibrary1.LocalPath ="c:\folder\"
If FtpLibrary1.Download Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Download multiple files/directories:
FtpLibrary1.RemotePath ="file.txt|file1.txt|folder\" 
FtpLibrary1.LocalPath ="c:\folder\"
If FtpLibrary1.Download Then
    'Success
Else
    Msgbox FtpLibrary1.ErrorInfo & "(" & FtpLibrary1.ErrorNumber & ")"
End If
Show transfer progress:
Private Sub FtpLibrary1_OnTransfer()
    Debug.Print FtpLibrary1.Percent & "%(" & FtpLibrary1.TransferredSize & "/" & FtpLibrary1.FileSize & ")"
    Debug.Print FtpLibrary1.FormatSize(FtpLibrary1.Speed) & "/s"
    Debug.Print FtpLibrary1.FormatTime(FtpLibrary1.LeftTime)
End Sub
Get file size and last modified time:
Dim strFileInfo As String
strFileInfo = FtpLibrary1.GetFileInfo("file.txt")
If strFileInfo = "" Then
    If FtpLibrary1.ErrorNumber <> 0 Then
        MsgBox FtpLibrary1.ErrorInfo
    Else
        MsgBox "file not found"
    End If
Else
    Dim aryItem() As String
    aryItem = Split(strFileInfo, "*")
    strFileInfo = "File name:   " & aryItem(0) & vbCrLf & "File size:     " 
        & FtpLibrary1.FormatSize(aryItem(1)) & vbCrLf & "Modified:    " & aryItem(2)
    MsgBox strFileInfo
End If
Get directory listing:Back to top
Dim i As Long
Dim strFiles,fileList As String
Dim aryFile() As String
Dim aryItem() As String
strFiles = FtpLibrary1.GetFileList("folder name")
'--
lstServerFiles.Clear
'--
If strFiles = "" Then
    If FtpLibrary1.ErrorNumber <> 0 Then
        MsgBox FtpLibrary1.ErrorInfo
    Else
        Debug.Print i & "|" & "Empty Directory. " & FolderPath
    End If
Else
    aryFile = Split(strFiles, "|")
    '--
    For i = 0 To UBound(aryFile)
        If Left(aryFile(i), 2) = "1*" Then   'Directory
            aryItem = Split(aryFile(i), "*")
            '--
            fileList = fileList & aryItem(1) & vbCrLf
        End If
    Next
    '--
    For i = 0 To UBound(aryFile)
        If Left(aryFile(i), 2) = "0*" Then   'File
            aryItem = Split(aryFile(i), "*")
            '--
            fileList = fileList & aryItem(1) & "   <" 
                & FtpLibrary1.FormatSize(aryItem(2)) & "> , <" & aryItem(3) & ">" & vbCrLf
        End If
    Next
End If
Back to top
Home Download Purchase Documentation Samples Screenshots Support Contact Links