This is an FTP library that (like most commercial components) acts as a 'wrapper' around' the wininet.dll FTP api calls and takes that dll to its functional limits. This object makes it easy to add FTP functionality to your application at a proffesional level.

Click here to download the complete source code, the compiled DLL and the demo.

At this moment I am working on making asynchrone connections possible. That functionality is alrady partially in this version.

Dim oFTP
Set oFTP = CreateObject("EVICT_FTP.FTP")
Dim lngReturn, intLoop, lngFileCount, strFile
oFTP.Disconnect
oFTP.SessionName = "EVICT FTP - http://www.evict.nl"
oFTP.OpenFlag = 0                 ' (0 = Synchrone)
oFTP.OpenType = 0                 ' (0 = PreConfig)
oFTP.PassiveMode = 0              ' (0 = Active)
oFTP.TransferType = 2             ' (2 = Binary)
oFTP.SendTimeOut = 180000
oFTP.ReceiveTimeOut = 180000
oFTP.ConnectTimeOut = 180000
oFTP.ConnectRetries = 10
oFTP.SetLogging "./ftp.log", 31   ' (31 = Log_All)

lngReturn = oFTP.Connect("ftp.microsoft.com", 21, _
    "test_user", "test_password")
If lngReturn = 1 Then
  If oFTP.IsConnected Then
    lngFileCount = oFTP.GetDirListing("", "*.*")
    If lngFileCount >= 0 Then
	  For intLoop = 0 To lngFileCount
        strFile = oFTP.GetDirListingFilename(intLoop)
	    lngReturn = oFTP.GetFile(strFile, "./" & strFile)
	    If lngReturn <> 1 Then MsgBox "Error: " & _
	    lngReturn & " proplem retrieving file " & strFile
	  Next
    Else
      MsgBox "There are no files available", _
      vbExclamation, "Looking for files"
    End If
  End If
End If
lngReturn = oFTP.Disconnect()
Set oFTP = Nothing