Set ftp1 = CreateObject("ChilkatFTP.ChilkatFTP")
             ftp1.HostName = "111.111.111.111"
	    ftp1.Username = "ftpuser"
	    ftp1.Password = "password"
	    success = ftp1.Connect()

         If (success =  1 ) Then
                 ' смена директории
         	i=ftp1.ChangeRemoteDir("RS/")	
                 ' кол-во файлов в дир.
	        n = ftp1.NumFilesAndDirs


          If n> 0  Then	
                  For i =  0  To (n -  1 )
                       If ftp1.GetFilename(i)="." Or ftp1.GetFilename(i)=".." Then  
	               Else 
                                fname = Right(ftp1.GetFilename(i),  12 )   ' вырезаем токо имя из полной инф. о файле
		              If Left(fname, 8)  = "RS979701" Then 		                  
			          n=0
		         	n=ftp1.GetFile("......../RS/" & fname , sPathLocal & fname)	
			        If ( n= 1) Then
				      ReDim Preserve sNameFile(i)
				      sNameFile(i) = ".........../RS/" & fname
		  	         Else
				       Main = DTSTaskExecResult_Failure
			      End If
		    End If
                End if 
         Next


	     ' закачали, удаляем теперь
   	      For i =  0  To UBound(sNameFile)
	          ftp1.DeleteRemoteFile( Right(sNameFile(i), 12 ) )
              Next

Set ftp1 = CreateObject("ChilkatFTP.ChilkatFTP")
ftp1.HostName = "111.111.111.111"
ftp1.Username = "login"
ftp1.Password =  "password"
success = ftp1.Connect()
MsgBox "success - " & success 

Private Declare Function FtpGetFile _
   Lib "wininet.dll" Alias "FtpGetFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszRemoteFile As String, _
   ByVal lpszNewFile As String, _
   ByVal fFailIfExists As Boolean, _
   ByVal dwFlagsAndAttributes As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Boolean

  
Private Declare Function InternetOpen _
   Lib "wininet.dll" Alias "InternetOpenA" ( _
   ByVal sAgent As String, _
   ByVal nAccessType As Long, _
   ByVal sProxyName As String, _
   ByVal sProxyBypass As String, _
   ByVal nFlags As Long) As Long

Private Declare Function InternetConnect _
   Lib "wininet.dll" Alias "InternetConnectA" ( _
   ByVal hInternetSession As Long, _
   ByVal sServerName As String, _
   ByVal nServerPort As Integer, _
   ByVal sUserName As String, _
   ByVal sPassword As String, _
   ByVal nService As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Long
   
Private Declare Function InternetCloseHandle _
   Lib "wininet.dll" (ByVal hInet As Long) As Integer
 
Private Const INTERNET_SERVICE_FTP =  1 
Private Const INTERNET_SERVICE_GOPHER =  2 
Private Const INTERNET_SERVICE_HTTP =  3 

Public Sub aaa()
  Dim hINetSession, hSession

  ' подключение к интернет
  hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
  ' производим connect
  hSession = InternetConnect(hINetSession, "111.111.111.111", _
   "21", "login", "password", INTERNET_SERVICE_FTP,  0 ,  0 )
  
  ' закачка
  If FtpGetFile(hSession, ".........1.zip", "c:\1.zip", False, 0, 2, 0) = False Then
    MsgBox "Call to FtpGetFile Failed!"
  End If
  
  ' закрываем хендлы
  Call InternetCloseHandle(hSession)
  Call InternetCloseHandle(hINetSession)

End Sub