Example

VBScript

Dim objFTP
Set objFTP = CreateObject("sfFTPLib.FTPPortPool")
objFTP.SetRange(5000, 5032)
Set objFTP = Nothing

JavaScript

Copy Code

var objFTP = new ActiveXObject("sfFTPLib.FTPPortPool");
objFTP.SetRange(5000, 5032);

Copy Code

CFTPPortPool ftp = new CFTPPortPool();
ftp.SetRange(5000, 5032);

C++

Copy Code

#import "libid:7A3A786C-EB8C-43b3-BC10-8D09ACF5D195"
// Note: Uncomment for Microsoft Visual Studio 6.0
//#import "C:\Program Files\SmartFTP FTP Library\sfFTPLib.dll"

::CoCreateInstance(NULL);
sfFTPLib :: IFTPPortPoolPtr m_PortPool;

if (SUCCEEDED(m_PortPool.CreateInstance(__uuidof(sfFTPLib::FTPPortPool))))
  m_PortPool->SetPortRange(5000, 5032);