Передача файла (файлов) по FTP

With Inet1
 .URL = "ftp.name.ru"
 .UserName = "Login"
 .Password = "Pass"
 .Execute ,"PUT C:\113\text.txt /folder/text.txt" 
 End With

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 Const INTERNET_SERVICE_FTP = 1
Private Const INTERNET_SERVICE_GOPHER = 2
Private Const INTERNET_SERVICE_HTTP = 3
 
Private Declare Function InternetCloseHandle _
   Lib "wininet.dll" (ByVal hInet As Long) As Integer
   Private Declare Function FtpPutFile _
   Lib "wininet.dll" Alias "FtpPutFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszLocalFile As String, _
   ByVal lpszRemoteFile As String, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Boolean
 
Private Sub Form_Load()
 
hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
 
hSession = InternetConnect(hINetSession, "ftp.name.ru", _
   "21", "login", "pass", INTERNET_SERVICE_FTP, 0, 0)
 
 
If FtpPutFile(hSession, "C:\113\text.txt", "/folder/text.txt", 1, 0) = False Then
   MsgBox "The call to FtpPutFile failed."
End If
 
 
End Sub

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 Sub Form_Load()
  
  hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
  hSession = InternetConnect(hINetSession, "ftp://oleksandrnosar.asuscomm.com", "21", "anonymous", "guest", INTERNET_SERVICE_FTP, 0, 0)
 
  
  If FtpGetFile(hSession, "ftp://oleksandrnosar.asuscomm.com/sda1/CopyFolder_For_HB5/ActualVer/verPrg.txt", "d:\verPrg.txt", False, 0, 1, 0) = False Then
   MsgBox "Call to FtpGetFile Failed!"
   End
  End If
  
  Call InternetCloseHandle(hSession)
  Call InternetCloseHandle(hINetSession)
  
End Sub

Option Explicit
 
Private Declare Function InternetCloseHandle Lib "wininet" (ByRef hInternet As Long) As Boolean
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenW" (ByVal lpszAgent As Long, ByVal dwAccessType As Long, ByVal lpszProxy As Long, ByVal lpszProxyBypass As Long, ByVal dwFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectW" (ByVal hInternetSession As Long, ByVal sServerName As Long, ByVal nServerPort As Integer, ByVal sUserName As Long, ByVal sPassword As Long, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileW" (ByVal hFtpSession As Long, ByVal sBuff As Long, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long
Private Declare Function FtpGetFileSize Lib "wininet" (ByVal hFile As Long, ByRef lpdwFileSizeHigh As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, lpBuffer As Any, ByVal dwNumberOfBytesToRead As Long, ByRef lpdwNumberOfBytesRead As Long) As Long
 
Private Const INTERNET_OPEN_TYPE_PRECONFIG  As Long = 0
Private Const INTERNET_DEFAULT_FTP_PORT     As Long = 21
Private Const INTERNET_SERVICE_FTP          As Long = 1
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000
Private Const INTERNET_FLAG_PASSIVE         As Long = &H8000000
Private Const GENERIC_READ                  As Long = &H80000000
Private Const FTP_TRANSFER_TYPE_BINARY      As Long = &H2
Private Const USERNAME                      As String = ""      ' Имя пользователя
Private Const PASSWORD                      As String = ""     ' Пароль
Private Const GRANULARITY                   As Long = &H10000
 
Private Sub cmdDownload_Click()
    Dim fileTitle   As String
    Dim offset      As Long
    Dim fileName    As String
    
    fileName = txtSourceFile.Text
    
    If Len(fileName) Then
        DownloadFile fileName, txtDstPath.Text & "\" & fileName, txtServerName
    End If
    
End Sub
 
' // Загрузить файл
Private Function DownloadFile(srcFile As String, dstPath As String, serverName As String) As Long
    Dim hInet   As Long
    Dim hFtp    As Long
    Dim hFile   As Long
    
    ' Инициализируем WinInet
    hInet = InternetOpen(StrPtr(App.ProductName), INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0)
    
    If hInet Then
        ' Открываем FTP сессию
        hFtp = InternetConnect(hInet, StrPtr(serverName), INTERNET_DEFAULT_FTP_PORT, _
                          StrPtr(USERNAME), StrPtr(PASSWORD), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
                                 
        If hFtp Then
            ' Создаем файл
            hFile = FtpOpenFile(hFtp, StrPtr(srcFile), GENERIC_READ, FTP_TRANSFER_TYPE_BINARY Or INTERNET_FLAG_RELOAD, 0)
    
            If hFile Then
                Dim fNum    As Integer
                Dim size    As Long
                Dim length  As Long
                Dim buf()   As Byte
                Dim numByt  As Long
                Dim totRed  As Long
                Dim retval  As Long
                ' Получаем размер файла, я не учитываю размер > 2GB
                length = FtpGetFileSize(hFile, retval)
                fNum = FreeFile
                size = length
                ReDim buf(GRANULARITY - 1)
                
                Open dstPath For Binary As fNum
                
                Do
                
                    If size > GRANULARITY Then
                        numByt = GRANULARITY
                    Else
                        numByt = size
                        ReDim buf(numByt - 1)
                    End If
                    
                    ' Читаем файл
                    retval = InternetReadFile(hFile, buf(0), numByt, totRed)
                    ' Проверяем статус
                    If retval = 0 Or numByt <> totRed Then
                        MsgBox "Error reading from file"
                        Exit Do
                    End If
                    
                    Put fNum, , buf()
                    
                    size = size - GRANULARITY
                    picProgress.Line (0, 0)-((length - size) / length, 1), vbRed, BF
                    DoEvents
                    
                Loop While size > 0
                
                Close fNum
                
                InternetCloseHandle hFile
                ' Успех
                DownloadFile = 1
                
            Else
                MsgBox "Error creating file"
            End If
            
            InternetCloseHandle hFtp
        Else
            MsgBox "Error connection"
        End If
        
        InternetCloseHandle hInet
    Else
        MsgBox "Initialize error"
    End If
 
End Function