Descarga masiva de archivos (errores)

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.
Responder
Avatar de Usuario
arkcrew
Profesional del Autoit
Mensajes: 506
Registrado: 28 Sep 2009, 19:17
Ubicación: Granada, España
Contactar:

Descarga masiva de archivos (errores)

Mensaje por arkcrew »

hola! , estoy intentando descargar unos archivos que tengo en un directorio de mi servidor, pero no fuedo utilizar una lectura de lineas de texto con el comando for .. to ... next ya que los archivos no siempre tienen el mismo nombre.

Encontre la librería ftp y consigo leer el nombre de tosdos los archivo, lo que no puedo hacer es que se descarguen.

Aqui les dejo mi código ayudenme por favor!!

Código: Seleccionar todo

#Include <File.au3>

#Include <Array.au3>

#include <GUIConstantsEx.au3>

#include <ProgressConstants.au3>

#include <FTP.au3>



    #Include <FTP.au3>



               Global Const $Host = 'ftp.u41.eset.com'

        Global Const $Login = 'EAV-23053334'

        Global Const $Password = 'vkndbju77m'

           Global $hFtp, $hSession, $hFind, $tFind



    _FTP_Startup()



        $hFtp = _FTP_Open('MyFtp')

        $hSession = _FTP_Connect($hFtp, $Host, $Login, $Password)

        $tFind = DllStructCreate($tagWIN32_FIND_DATA)

TrayTip("NodGen 2.0" , "Esperando al servidor.."& @CRLF & "" & @CRLF & "Conectando con el servidor.."& @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)

Sleep(2000)

TrayTip("NodGen 2.0" , "Conectado"& @CRLF & "" & @CRLF & "Leyendo archivos..." & @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)

Sleep(2000)



$tFind = DllStructCreate($tagWIN32_FIND_DATA)

$hFind = _FTP_FileFindFirst($hSession, '/eset_update/', $tFind)

        While Not @error

        ConsoleWrite(DllStructGetData($tFind, 'FileName') & @CR)

        _FTP_FileFindNext($hFind, $tFind)

WEnd

TrayTip("NodGen 2.0" , "Nombre: " & "" & @lf &"" & @lf & "Descargado: "& @InetGetBytesRead & " de " & "" &  "KB" &@lf & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)

sleep(500)



        _FTP_FileFindClose($hFind)



        _FTP_Disconnect($hSession)

        _FTP_Close($hFtp)



        _FTP_Shutdown()

exit





 
Necesito que lea los archivos que se encuentran en el servidor para poder descargarlos (el user y la pass son correctos ya que los utiliza el NOD32 para actualizar)
Agradecería mucho su ayuda, Un saludo :smt026 :smt026
Última edición por arkcrew el 21 Oct 2009, 17:00, editado 2 veces en total.
Avatar de Usuario
Chefito
Profesional del Autoit
Mensajes: 2035
Registrado: 21 Feb 2008, 18:42
Ubicación: Albacete/Cuenca (España)

Re: Ayuda urgente con una descarga masiva de archivos

Mensaje por Chefito »

Tienes que hacerlo con la api FTPGetFile de la librería wininet.dll.
Te paso un link del foro ingles donde el compañero Dickb la ha implementado: http://www.autoitscript.com/forum/index ... 0udf&st=35

Saludos.
Cita vista en algún lugar de la red: En este mundo hay 10 tipos de personas, los que saben binario y los que no ;).
Responder