Отправка/получение файлов на FTP с прогресс баром - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день всем! перерыл кучу ресурсов (в том числе) и этот. Но ничего (рабоающего) не нашел. Самое свежее здесь..Разместить файл на папку в FTP сервере Единственный рабоающий пример с получением файлов найден на данном ресурсе http://www.planet-source-code.com/vb...xtCodeId=64914 Однако работа в одну торону, а именно только на загрузку. Может кто-то помочь доработать данный код, предложить другой?

Решение задачи: «Отправка/получение файлов на FTP с прогресс баром»

textual
Листинг программы
Option Explicit
 
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long
 
Const MAX_PATH As Long = 260&
 
Private Sub Form_Load()
    Dim HRESULT     As String
    Dim ErrNumber   As Long
    
    'например. Код 5 - отаказ в доступе
    ErrNumber = 5
    HRESULT = MessageText(ErrNumber)
    Debug.Print HRESULT
End Sub
 
Private Function MessageText(lCode As Long) As String
    On Error Resume Next
    Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &H1000&
    
    Dim sRtrnCode   As String
    Dim lRet        As Long
 
    sRtrnCode = Space$(MAX_PATH)
    lRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, lCode, ByVal 0&, sRtrnCode, MAX_PATH, ByVal 0&)
    If lRet > 0 Then
        MessageText = Left$(sRtrnCode, lRet)
        MessageText = Replace$(MessageText, vbNewLine, vbNullString)
    End If
End Function

Оцени полезность:

13   голосов , оценка 4.077 из 5