Option Explicit

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 InternetGetLastResponseInfo _
Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" ( _
  ByRef lpdwError As Long, _
  ByVal lpszBuffer As String, _
  ByRef lpdwBufferLength As Long _
) As Boolean

Private Declare Function InternetCloseHandle _
Lib "wininet.dll" (ByVal hInet As Long) As Integer

Private Declare Function GetLastError _
Lib "kernel32.dll" () As Long

Private Const INTERNET_SERVICE_FTP =  1 
Private Const INTERNET_SERVICE_GOPHER =  2 
Private Const INTERNET_SERVICE_HTTP =  3 
Private Const INTERNET_OPEN_TYPE_PRECONFIG =  0                     ' use registry configuration
Private Const INTERNET_OPEN_TYPE_DIRECT =  1                         ' direct to net
Private Const INTERNET_OPEN_TYPE_PROXY =  3                          ' via named proxy
Private Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY =  4    ' prevent using java/script/INS
Private Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connections


Private m_ftpServer As String

Private m_ftpPort As Integer

Private m_fileName As String

Private m_login As String

Private m_password As String

Private m_useProxy As Boolean

Private m_proxy As String

Private m_passiveMode As Boolean


Public Property Get FtpServer() As String
    FtpServer = m_ftpServer
End Property

Public Property Let FtpServer(newValue As String)
    m_ftpServer = newValue
End Property


Public Property Get FtpPort() As Integer
    FtpPort = m_ftpPort
End Property

Public Property Let FtpPort(newValue As Integer)
    m_ftpPort = newValue
End Property


Public Property Get FileName() As String
    FileName = m_fileName
End Property

Public Property Let FileName(newValue As String)
    m_fileName = newValue
End Property


Public Property Get Login() As String
    Login = m_login
End Property

Public Property Let Login(newValue As String)
    m_login = newValue
End Property


Public Property Get Password() As String
    Password = m_password
End Property

Public Property Let Password(newValue As String)
    m_password = newValue
End Property


Public Property Get UseProxy() As Boolean
    UseProxy = m_useProxy
End Property

Public Property Let UseProxy(newValue As Boolean)
    m_useProxy = newValue
End Property

Public Property Get Proxy() As String
    Proxy = m_proxy
End Property

Public Property Let Proxy(newValue As String)
    m_proxy = newValue
End Property

Public Property Get PassiveMode() As Boolean
    PassiveMode = m_passiveMode
End Property

Public Property Let PassiveMode(newValue As Boolean)
    m_passiveMode = newValue
End Property



Private Sub Class_Initialize()
    m_ftpServer = "ftp.xxxx.ru"
    m_ftpPort =  21 
    m_fileName = "/Data.xls"
    m_login = "x"
    m_password = "y"
    m_useProxy = False
    m_proxy = ""
    m_passiveMode = False
    
End Sub

Public Function GetFile(ByRef SaveAs As String, ByRef win32ErrorCode As Long, ByRef errDescription As String) As Boolean

    Dim hINetSession As Long, hSession As Long, result As Boolean, errrr As String, length As Long
    
    length =  256 
    errrr = Space(length)
    
    If Me.UseProxy = True Then
        hINetSession = InternetOpen("Client", INTERNET_OPEN_TYPE_PROXY, Me.Proxy, vbNullString,  0 )
    Else
        hINetSession = InternetOpen("Client", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString,  0 )
    End If
    
    If hINetSession =  0  Then
        GetFile = False
        win32ErrorCode = err.LastDllError
        errDescription = "Не удалось создать подключение к сети. "
        
        If Me.UseProxy = True Then
            errDescription = errDescription & "(Использовался прокси: " & Me.Proxy & ")"
        Else
            errDescription = errDescription & "(Прокси не использовался.)"
        End If
        
        GoTo lastLine
    End If
    
    'подключаемся к ФТП
    hSession = InternetConnect(hINetSession, m_ftpServer, m_ftpPort, m_login, m_password, INTERNET_SERVICE_FTP, IIf(m_passiveMode, INTERNET_FLAG_PASSIVE,  0 ),  0 )
    
    If hSession =  0  Then
        'упс, не получилось...
        GetFile = False
        win32ErrorCode = err.LastDllError
        
        errDescription = "Не удалось подключиться к FTP " & m_ftpServer & ":" & Str(m_ftpPort) & " используя логин/пароль: " & m_login & "/" & m_password & IIf(m_passiveMode, ", в пассивном режиме", ", в активном режиме") & Chr( 13 )
        
        If Me.UseProxy = True Then
            errDescription = errDescription & "(Использовался прокси: " & Me.Proxy & ")"
        Else
            errDescription = errDescription & "(Прокси не использовался.)"
        End If
        
        'пробуем достать расширенное описание ошибки:
        If InternetGetLastResponseInfo(win32ErrorCode, errrr, length) = True Then
            errDescription = errDescription & Chr( 13 ) & errrr
        End If
                
        InternetCloseHandle (hINetSession)
        
        GoTo lastLine
    End If

    result = FtpGetFile(hSession, m_fileName, SaveAs, False,  0 ,  1 ,  0 )
    
    If result = False Then
        win32ErrorCode = err.LastDllError
        errDescription = "Не удается скачать файл " & m_fileName & " с FTP " & m_ftpServer & ":" & Str(m_ftpPort) & ", логин/пароль: " & m_login & "/" & m_password & IIf(m_passiveMode, ", в пассивном режиме", ", в активном режиме") & Chr( 13 )
              
        If InternetGetLastResponseInfo(win32ErrorCode, errrr, length) = True Then
            errDescription = errDescription & Chr( 13 ) & errrr
        End If
        
    End If
    
    InternetCloseHandle (hSession)
    InternetCloseHandle (hINetSession)
    
    GetFile = result
    
lastLine:

End Function