|The nBit Easy FTP DLL can be added with ease to any vb6 or VBA project. |
You can use the DLL from your vb6 / VBA code as follows
| VB6 - Add a reference to the DLL in your project references. Goto tools -> references and select the nBitFTP component from the list.
|| MSAccess - Add a reference to the DLL in your MDB. Goto tools -> references and select the nBitFTP component from the list. |
|Option Explicit |
Dim WithEvents oftp As nBitFTP.clsFTP
Private Sub Form_Load()
Set oftp = New clsFTP
' you could also use late binding. Just declare the object as DIM oFTP as Object
' and then set oftp = createobject("nBitFTP.clsFTP")
Private Sub cmdConnect_Click()
oftp.LicName = "YourOrderNumber"
oftp.LicKey = "YourLicenceKey"
oftp.Host = Me.txtHost
oftp.UserName = Me.txtUserName
oftp.Password = Me.txtPassword
oftp.InitDir = Me.txtInit
oftp.Passive = Me.chkPassive
oftp.ShowDialog = Me.chkTransfer
oftp.FTPPort = Me.txtFTPPort
Private Sub cmdPut_Click()
If Me.CommonDialog1.FileName <> "" Then
If oftp.PutFileProgress(Me.CommonDialog1.FileTitle, Me.CommonDialog1.FileName) Then
|It's as easy as that. For a more detailed example of the use of the DLL ( and an implementation of the full feature set ) please refer to the sample project after downloading the free evaluation version of the control. |
Add to Cart
© nBit Information Technologies 2004-2017. All rights reserved.