Descarga masiva de archivos (errores)
Publicado: 18 Oct 2009, 20:24
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!!
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
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
Agradecería mucho su ayuda, Un saludo