Macro cliente ftp para visualizar y descargar archivo.

[jeladio]

Hola. amigos: me nacio la siguiente inquietud, ¿hay alguna manera de conectarnos como un cliente FTP a un directorio web para ver los nombres de los archivos en un listview y poder descargarlos.

saludos desde Guatemala

[jermmy]

Nunca he podido hacer eso pero tal vez les puedo dar una pista de donde empezar.

Tengo esta macro que me conecta al servidor ftp (lo probé con uno de 000webhost) y me subió un archivo que tenia en mis documentos. Tal vez alguien del foro la pueda modificar para lo que ocupas..

Saludos,

Option Explicit

'Todo entre comillas dobles.

Const FTP_ADDRESS = "direccion ftp"

Const FTP_USERID = "usuario"

Const FTP_PASSWORD = "contraseña"


Sub Macro1()

    If Not SendFtpFile_F() Then

        MsgBox "Could not ftp file"

    Else

        MsgBox "Sent"

    End If

End Sub


Function SendFtpFile_F() As Boolean

    Dim rc As Integer

    Dim iFreeFile As Integer

    Dim sFTPUserID As String

    Dim sFTPPassWord As String

    Dim sWorkingDirectory As String

    Dim sFileToSend As String


    Const FTP_BATCH_FILE_NAME = "myFtpFile.ftp"

    Const INCREASED_BUFFER_SIZE = 20480


    SendFtpFile_F = False


    sWorkingDirectory = "aqui la direccion de ti archivo sin el nombre del mismo por ejemplo C:\prueba\"

    sFileToSend = "Aqui tu archivo a mandar"


    On Error GoTo FtpNECAFile_EH


    'Kill FTP process file if it exists

    If Dir(sWorkingDirectory & FTP_BATCH_FILE_NAME) <> "" Then

        Kill sWorkingDirectory & FTP_BATCH_FILE_NAME

    End If


    'Create FTP process file

    iFreeFile = FreeFile

    Open sWorkingDirectory & FTP_BATCH_FILE_NAME For Output As #iFreeFile

    Print #iFreeFile, "open " & FTP_ADDRESS

    Print #iFreeFile, FTP_USERID

    Print #iFreeFile, FTP_PASSWORD

    Print #iFreeFile, "mput " & sWorkingDirectory & sFileToSend

    Print #iFreeFile, "quit"

    Close #iFreeFile


    'Shell command the FTP file to the server

    Shell "ftp -i -w:20480 -s:" & sWorkingDirectory & FTP_BATCH_FILE_NAME


    SendFtpFile_F = True


    GoTo FtpNECAFile_EX


FtpNECAFile_EH:

        MsgBox "Err", Err.Name


FtpNECAFile_EX:


    Exit Function


End Function[/CODE]

[jermmy]

Esto crea un archivo myFtpFile.ftp con las instrucciones y lo ejecuta

open direccionftp

usuario

pass

mput blablablabla

quit

No se de comandos ftp hay algo que se llama ls o algo asì, pero si creas una linea que guarde la lista de archivos en un txt y luego desde excel lees ese txt por linea para cargar el listview ?

o bien alguien del foro?