Visual Basic - AYUDA PARA DESCARGAR DIRECTORIO FTP EN CARPETA LOCAL

Option Explicit

Private Sub Mostrar_Estado_FTP(ByVal estado As String)

    List1.AddItem estado

    List1.ListIndex = List1.ListCount - 1

End Sub

Private Sub Command2_Click()

Dim El_Host As String

    If txt_Remoto = "" Then

       MsgBox " No hay archivo para descargar", vbInformation

       Exit Sub

    End If

        List1.AddItem " ..Descargando "

        'Asigna la Url, es decir el nombre del Host FTP  

        El_Host = "ftp://" & txt_servidor

    With Inet1

        .URL = El_Host

        'nombre de usuario y password de la cuanta FTP  

        .UserName = txt_Usuario

        .Password = txt_Pass

        'DEscarga el archivo indicado con el comando Get  

        Call .Execute(, "Get " & txt_Remoto & " " & txt_local)

        DoEvents

     End With

End Sub

Private Sub Command1_Click()

    Dim El_Host As String

    If txt_local = "" Then

       MsgBox " No hay archivo pra subir", vbInformation

       Exit Sub

    End If

    List1.AddItem " ..Subiendo archivo "

    El_Host = "ftp://" & txt_servidor

    With Inet1

        'Asigna la Url, es decir el nombre del Host FTP  

        .URL = El_Host

        'nombre de usuario y password de la cuanta FTP  

        .UserName = txt_Usuario

        .Password = txt_Pass

        'Escribe el fichero en el servidor con el comando Put  

        Call .Execute(, "Put " & txt_local & " " & txt_Remoto)

        DoEvents

     End With

End Sub

'botón para seleccionar fichero a subir al Ftp  

Private Sub Command3_Click()

With CommonDialog1

     .DialogTitle = " Seleccione el archivo a subir"

     .ShowOpen

     If .FileName = "" Then

        txt_local = ""

        Exit Sub

     Else

        txt_local = .FileName

     End If

End With

End Sub

'botón para seleccionar la ruta y nombre de archivo a descargar  

Private Sub Command4_Click()

With CommonDialog1

     .DialogTitle = " Seleccione ruta y nombre del archivo a descargar"

     .ShowSave

     If .FileName = "" Then

        txt_Remoto = ""

        Exit Sub

     Else

        txt_Remoto = .FileName

     End If

End With

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

    Select Case State

        'Dependiendo del valor recibido de State _

         muestra en el List1 la información de estado

        Case 0: Mostrar_Estado_FTP " Nothing "

        Case 1: Mostrar_Estado_FTP " Resolviendo Host "

        Case 2: Mostrar_Estado_FTP " Host Resuelto "

        Case 3: Mostrar_Estado_FTP " ..Conectando a: " & txt_servidor

        Case 4: Mostrar_Estado_FTP ".. Conectado a " & txt_servidor

        Case 5: Mostrar_Estado_FTP " Petición"

        Case 6: Mostrar_Estado_FTP " ..enviando petición"

        Case 7: Mostrar_Estado_FTP " Recibiendo Respuesta "

        Case 8: Mostrar_Estado_FTP " Respuesta recibida "

        Case 9: Mostrar_Estado_FTP " ..Desconectando "

        Case 10: Mostrar_Estado_FTP " Estado : Desconectado"

        Case 11: Mostrar_Estado_FTP " Error: " & Inet1.ResponseInfo

        Case 12: Mostrar_Estado_FTP Inet1.ResponseInfo

       Case Else: Mostrar_Estado_FTP " Estado -> " & Format$(State)

    End Select

    DoEvents

End Sub

Private Sub Form_Load()

    Command1.Caption = "Subir archivo "

    Command2.Caption = " Descargar archivo "

    Me.Caption = "Ejemplo del control Inet para descargar y subir ficheros"

End Sub

Private Sub Command2_Click()

   XXDescargar (false, "*.*")

end SUB

Private Sub XXDescargar(ind as boolean , DownFile as string)

'PROCEDIMIENTO PARA FTP

'RECIBE DOS PARAMETROS

'IND UN BOOLEANO QUE SI ES INDIVIDUAL O UN varios ARCHIVOS

'DOWNFILE QUE ES EL NOMBRE DEL ARCHIVO INDIVIDUAL O EL STRING DE LOS ARCHIVOS PUEDE SER *.*

Dim zfiles, zfileList As String

        'Asigna la Url, es decir el nombre del Host FTP

        El_Host = "ftp://192.68.88.15" ' TU ip DE SERVIDOR

    With Inet1

        .URL = El_Host

        'Nombre de usuario y password de la cuenta FTP

        .UserName = "aguerrero" ' tu usuario

        .Password = "Proce**2006@467" ' tu clave

        'Descarga el archivo indicado con el comando Get y con Mget

        ''ver los comandos de inet.

        If IND = True Then  ' esta es una marca si es un solo archivo y en DownFile tiene un nombre especifico  Ej: Contabilidad20170515.txt

            Call .Execute(, "Get " & DownFile & " " & App.Path & "\txt\" & DownFile)

            While .StillExecuting: DoEvents: Wend

        Else

        '************************************************************

        ' Cuando es mas de un archivo se hace esto                  *

        ' en DownFile debe ir comodines algo asi como  *.*          *

        ' en DownFile debe ir comodines algo asi como  *20170501.*  *

        '************************************************************

            .Execute .URL, "DIR " & DownFile  ' primero hago un dir de la carpeta para que me de TODOS los archivos

            While .StillExecuting: DoEvents: Wend

            'Luego  que recupere el dir en un arreglo determino todos los archivos de la carpeta

            zfileList = .GetChunk(4096, 0)

            zfiles = Split(zfileList, vbCrLf)

            i = 0

            'Y luego solo Los Bajo Uno a Uno respecto a mi criterio de Listar Archivos....

            While (i < UBound(zfiles) - 1)

                .Execute .URL, "GET " & zfiles(i) & " " & "Tu carpeta" & zfiles(i)

                While .StillExecuting: DoEvents: Wend

                i = i + 1

            Wend

        End If

        'Esto para que no se quede el pedido

        While .StillExecuting: DoEvents: Wend

     End With

End Sub