In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Modulo para ACTUALIZACION

Foro público de Xailer en español
Responder
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Modulo para ACTUALIZACION

Mensaje por PEDRO DE LEON RODAS[3] »

Gusto de saludarlos.
Tomando de la pregunta de Marcelo Coelho Silva, acerca de Ftp, hice una
rutina para actualizar mis aplicaciones via Ftp.
Marcelo Coelho Silva puso la forma de como conectarse al servidor Ftp y asi
pude entender como hacerlo.
Gracias Marcelo Coelho Silva por compartir.
Este es el codigo
Lo puse en un formulario y lo ejecuto desde un boton.
METHOD ACEPTARClick( oSender ) CLASS ACTUALIZAR
Local
Archivo_ftp:={},Fecha_Archivo_local:=Array(1),Fecha_Archivo_ Ftp,archivos_ftp:={}
Local cuenta,extension
Adir(".ADVENTAS.EXE",,,Fecha_Archivo_local) /// ESTO ES DONDE TENGO MI
APLICACION Y DEL CUAL TOMO LA FECHA DEL ARCHIVO
With Object Tftp():New() /// CREO EL METODO DEL TFTP
Waiton("Buscando actualizaciones") /// MANDO UN MENSAJE CON EL SISTEMA
DE MENSAJES DE Bingen.
:cPassword := 'password'
:cUser := 'usuario'
:lPassive := .t.
:Open()
:Connect('www.mihostin.com')
Fecha_Archivo_Ftp=:directory("/actualizaciones/ADVENTAS.exe ") ///AQUI
OBTENGO LA FECHA DEL ARCHIVO DEL FTP (ACTUALIZACIONES ES MI CARPETA Y
ADVENTAS.EXE EL ARCHIVO DE MI APL.
If Fecha_Archivo_local[1]>=Fecha_Archivo_Ftp[1,3] /// VALIDO LA FECHA DEL
ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
WaitOff()
Msginfo("No hay actualizaciones disponibles")
REturn .t.
Endif
If Fecha_Archivo_local[1]<Fecha_Archivo_Ftp[1,3] /// VUELVO A VALIDAR LA
FECHA DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
WaitOff()
IF MsgYesNo("Existe una nueva versión disponible, ¿desea
descargarla?" )=.f.
Return .t.
Else
Archivo_ftp=:directory("/actualizaciones") ///OBTENGO TODOS
LOS ARCHIVOS QUE ESTAN ALMACENADOS EN ACTUALIZACIONES DEL SERVIDOR FTP
Waiton("Realizando actualizaciones")
For cuenta=3 to len(Archivo_ftp ) /// ESPECIFICO
QUE A PARTIR DE 3 EMPIEZE A DARME LOS ARCHIVOS (CON LAS PRUEBAS QUE HICE EL
SERVIDOR FTP ME REGRESA 5 ARCHIVOS Y YO SOLO TENGO ALMACENADO 3
Extension=substr(Archivo_ftp[cuenta,1],len(Archivo_ftp[cuent a,1])-2,3)
///OBTENGO LA EXTENSION DEL ARCHIVO DEL FTP
If upper(Extension)="FR3" //// SI ES ARCHIVO
DE REPORTE (FASTREPORT)
delete
file(".REPORTES"+Archivo_ftp[cuenta,1] ) ///ELIMINO EL ARCHIVO LOCAL
:GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
".reportes"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
Loop
Endif
If upper(Extension)="EXE" /// SI ES EL ARCHIVO
DE MI APLICACION
delete file(".ADVENTAS.EXE")
///ELIMINO EL ARCHIVO DE MI APLICACION
:GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
"c:adventas"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
Loop
Endif
* Msginfo("Nombre: "+Archivo_ftp[cuenta,1]+"
Fecha: "+dtoc(Archivo_ftp[cuenta,3])+" Tamaño:
"+Str(Archivo_ftp[cuenta,2])+" Hora:"+Archivo_ftp[cuenta,4],"DATOS DEL
ARCHIVO" )
Next
WaitOff()
Msginfo("Actualizaciones realizadas con exito")
Endif
Endif
End With
RETURN Nil
Espero y les sirva y si lo pueden mejorar con barra de progreso o algo mas,
pues ahi compartanlo.
La union hace la fuerza.
Dios les bendiga.
Arriba
Avatar de Usuario
xhermita
Mensajes: 177
Registrado: Vie Feb 18, 2011 10:05 pm
Ubicación: Las Palmas de Gran Canaria
Contactar:
Contactar xhermita

Modulo para ACTUALIZACION

Mensaje por xhermita »

Muchas Gracias Marcelo;
Me vienes que ni caí­do del cielo.
Justo estaba empezando a plantearme el proceso de actualización de los
kioskos mediante ftp.
Un saludo
Pedro Amaro
El 07/04/2012 4:40, PEDRO DE LEON RODAS escribió:
> Gusto de saludarlos.
>
> Tomando de la pregunta de Marcelo Coelho Silva, acerca de Ftp, hice una
> rutina para actualizar mis aplicaciones via Ftp.
>
> Marcelo Coelho Silva puso la forma de como conectarse al servidor Ftp y
> asi pude entender como hacerlo.
>
> Gracias Marcelo Coelho Silva por compartir.
>
> Este es el codigo
>
> Lo puse en un formulario y lo ejecuto desde un boton.
>
>
> METHOD ACEPTARClick( oSender ) CLASS ACTUALIZAR
> Local
> Archivo_ftp:={},Fecha_Archivo_local:=Array(1),Fecha_Archivo_ Ftp,archivos_ftp:={}
>
> Local cuenta,extension
>
> Adir(".ADVENTAS.EXE",,,Fecha_Archivo_local) /// ESTO ES DONDE TENGO MI
> APLICACION Y DEL CUAL TOMO LA FECHA DEL ARCHIVO
>
>
> With Object Tftp():New() /// CREO EL METODO DEL TFTP
>
> Waiton("Buscando actualizaciones") /// MANDO UN MENSAJE CON EL SISTEMA
> DE MENSAJES DE Bingen.
>
> :cPassword := 'password'
> :cUser := 'usuario'
> :lPassive := .t.
> :Open()
> :Connect('www.mihostin.com')
> Fecha_Archivo_Ftp=:directory("/actualizaciones/ADVENTAS.exe ") ///AQUI
> OBTENGO LA FECHA DEL ARCHIVO DEL FTP (ACTUALIZACIONES ES MI CARPETA Y
> ADVENTAS.EXE EL ARCHIVO DE MI APL.
>
> If Fecha_Archivo_local[1]>=Fecha_Archivo_Ftp[1,3] /// VALIDO LA FECHA
> DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
> WaitOff()
> Msginfo("No hay actualizaciones disponibles")
> REturn .t.
> Endif
>
>
> If Fecha_Archivo_local[1]<Fecha_Archivo_Ftp[1,3] /// VUELVO A VALIDAR LA
> FECHA DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
>
> WaitOff()
> IF MsgYesNo("Existe una nueva versión disponible, ¿desea descargarla?"
> )=.f.
> Return .t.
> Else
>
> Archivo_ftp=:directory("/actualizaciones") ///OBTENGO TODOS LOS ARCHIVOS
> QUE ESTAN ALMACENADOS EN ACTUALIZACIONES DEL SERVIDOR FTP
>
> Waiton("Realizando actualizaciones")
>
> For cuenta=3 to len(Archivo_ftp ) /// ESPECIFICO QUE A PARTIR DE 3
> EMPIEZE A DARME LOS ARCHIVOS (CON LAS PRUEBAS QUE HICE EL SERVIDOR FTP
> ME REGRESA 5 ARCHIVOS Y YO SOLO TENGO ALMACENADO 3
>
> Extension=substr(Archivo_ftp[cuenta,1],len(Archivo_ftp[cuent a,1])-2,3)
> ///OBTENGO LA EXTENSION DEL ARCHIVO DEL FTP
>
> If upper(Extension)="FR3" //// SI ES ARCHIVO DE REPORTE (FASTREPORT)
> delete file(".REPORTES"+Archivo_ftp[cuenta,1] ) ///ELIMINO EL ARCHIVO
> LOCAL
> :GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
> ".reportes"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
> Loop
> Endif
>
> If upper(Extension)="EXE" /// SI ES EL ARCHIVO DE MI APLICACION
> delete file(".ADVENTAS.EXE") ///ELIMINO EL ARCHIVO DE MI APLICACION
> :GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
> "c:adventas"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
> Loop
> Endif
> * Msginfo("Nombre: "+Archivo_ftp[cuenta,1]+" Fecha:
> "+dtoc(Archivo_ftp[cuenta,3])+" Tamaño: "+Str(Archivo_ftp[cuenta,2])+"
> Hora:"+Archivo_ftp[cuenta,4],"DATOS DEL ARCHIVO" )
> Next
>
> WaitOff()
>
> Msginfo("Actualizaciones realizadas con exito")
>
> Endif
>
> Endif
>
> End With
> RETURN Nil
>
>
> Espero y les sirva y si lo pueden mejorar con barra de progreso o algo
> mas, pues ahi compartanlo.
>
>
> La union hace la fuerza.
>
> Dios les bendiga.
>
Pedro Amaro
2PC Service
Xailer / Néfele / MySQL-MariaDB / SQLServer
Arriba
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Modulo para ACTUALIZACION

Mensaje por zeasoftware »

Gracias, andaba haciendo pininos para dicho proceso, ahora lo probaré y haré
mi ftp a ver que tal sale.
Solo una duda: Este proceso lo hacen dentro de tu ADVentas.Exe? o es un
programa por separado?
Saludos.
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
"PEDRO DE LEON RODAS" escribió en el mensaje de
noticias:4f7fb750$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Gusto de saludarlos.
Tomando de la pregunta de Marcelo Coelho Silva, acerca de Ftp, hice una
rutina para actualizar mis aplicaciones via Ftp.
Marcelo Coelho Silva puso la forma de como conectarse al servidor Ftp y asi
pude entender como hacerlo.
Gracias Marcelo Coelho Silva por compartir.
Este es el codigo
Lo puse en un formulario y lo ejecuto desde un boton.
METHOD ACEPTARClick( oSender ) CLASS ACTUALIZAR
Local
Archivo_ftp:={},Fecha_Archivo_local:=Array(1),Fecha_Archivo_ Ftp,archivos_ftp:={}
Local cuenta,extension
Adir(".ADVENTAS.EXE",,,Fecha_Archivo_local) /// ESTO ES DONDE TENGO MI
APLICACION Y DEL CUAL TOMO LA FECHA DEL ARCHIVO
With Object Tftp():New() /// CREO EL METODO DEL TFTP
Waiton("Buscando actualizaciones") /// MANDO UN MENSAJE CON EL SISTEMA
DE MENSAJES DE Bingen.
:cPassword := 'password'
:cUser := 'usuario'
:lPassive := .t.
:Open()
:Connect('www.mihostin.com')
Fecha_Archivo_Ftp=:directory("/actualizaciones/ADVENTAS.exe ") ///AQUI
OBTENGO LA FECHA DEL ARCHIVO DEL FTP (ACTUALIZACIONES ES MI CARPETA Y
ADVENTAS.EXE EL ARCHIVO DE MI APL.
If Fecha_Archivo_local[1]>=Fecha_Archivo_Ftp[1,3] /// VALIDO LA FECHA DEL
ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
WaitOff()
Msginfo("No hay actualizaciones disponibles")
REturn .t.
Endif
If Fecha_Archivo_local[1]<Fecha_Archivo_Ftp[1,3] /// VUELVO A VALIDAR LA
FECHA DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
WaitOff()
IF MsgYesNo("Existe una nueva versión disponible, ¿desea
descargarla?" )=.f.
Return .t.
Else
Archivo_ftp=:directory("/actualizaciones") ///OBTENGO TODOS
LOS ARCHIVOS QUE ESTAN ALMACENADOS EN ACTUALIZACIONES DEL SERVIDOR FTP
Waiton("Realizando actualizaciones")
For cuenta=3 to len(Archivo_ftp ) /// ESPECIFICO
QUE A PARTIR DE 3 EMPIEZE A DARME LOS ARCHIVOS (CON LAS PRUEBAS QUE HICE EL
SERVIDOR FTP ME REGRESA 5 ARCHIVOS Y YO SOLO TENGO ALMACENADO 3
Extension=substr(Archivo_ftp[cuenta,1],len(Archivo_ftp[cuent a,1])-2,3)
///OBTENGO LA EXTENSION DEL ARCHIVO DEL FTP
If upper(Extension)="FR3" //// SI ES ARCHIVO
DE REPORTE (FASTREPORT)
delete
file(".REPORTES"+Archivo_ftp[cuenta,1] ) ///ELIMINO EL ARCHIVO LOCAL
:GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
".reportes"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
Loop
Endif
If upper(Extension)="EXE" /// SI ES EL ARCHIVO
DE MI APLICACION
delete file(".ADVENTAS.EXE")
///ELIMINO EL ARCHIVO DE MI APLICACION
:GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
"c:adventas"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
Loop
Endif
* Msginfo("Nombre: "+Archivo_ftp[cuenta,1]+"
Fecha: "+dtoc(Archivo_ftp[cuenta,3])+" Tamaño:
"+Str(Archivo_ftp[cuenta,2])+" Hora:"+Archivo_ftp[cuenta,4],"DATOS DEL
ARCHIVO" )
Next
WaitOff()
Msginfo("Actualizaciones realizadas con exito")
Endif
Endif
End With
RETURN Nil
Espero y les sirva y si lo pueden mejorar con barra de progreso o algo mas,
pues ahi compartanlo.
La union hace la fuerza.
Dios les bendiga.
Arriba
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Modulo para ACTUALIZACION

Mensaje por PEDRO DE LEON RODAS[3] »

Que tal Ramon.
Puedes poner en Adventas.exe el metodo para detectar si existe o no una
actualizacion, y en otro exe puedes hacer lo demas.
Dentro de Adventas.exe puedes ejecutar el otro exe.
Algo asi.
METHOD ACEPTARClick( oSender ) CLASS ACTUALIZAR
Local
Archivo_ftp:={},Fecha_Archivo_local:=Array(1),Fecha_Archivo_ Ftp,archivos_ftp:={}
Local cuenta,extension
Adir(".ADVENTAS.EXE",,,Fecha_Archivo_local) /// ESTO ES DONDE TENGO MI
APLICACION Y DEL CUAL TOMO LA FECHA DEL ARCHIVO
With Object Tftp():New() /// CREO EL METODO DEL TFTP
Waiton("Buscando actualizaciones") /// MANDO UN MENSAJE CON EL SISTEMA
DE MENSAJES DE Bingen.
:cPassword := 'password'
:cUser := 'usuario'
:lPassive := .t.
:Open()
:Connect('www.mihostin.com')
Fecha_Archivo_Ftp=:directory("/actualizaciones/ADVENTAS.exe ") ///AQUI
OBTENGO LA FECHA DEL ARCHIVO DEL FTP (ACTUALIZACIONES ES MI CARPETA Y
ADVENTAS.EXE EL ARCHIVO DE MI APL.
If Fecha_Archivo_local[1]>=Fecha_Archivo_Ftp[1,3] /// VALIDO LA FECHA DEL
ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
WaitOff()
Msginfo("No hay actualizaciones disponibles")
REturn .t.
Endif
If Fecha_Archivo_local[1]<Fecha_Archivo_Ftp[1,3] /// VUELVO A VALIDAR LA
FECHA DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
WaitOff()
IF MsgYesNo("Existe una nueva versión disponible, ¿desea
descargarla?" )=.f.
Return .t.
Else
Execute(".miupdate.exe",.f.,,SW_HIDE)
::Close() /// o Quit
Endif
Endif
End With
RETURN Nil
Y en el miupdate.exe puedes incluir
METHOD ACEPTARClick( oSender ) CLASS ACTUALIZAR
Local
Archivo_ftp:={},Fecha_Archivo_local:=Array(1),Fecha_Archivo_ Ftp,archivos_ftp:={}
Local cuenta,extension
Waiton("Descargando actualizaciones") /// MANDO UN MENSAJE CON EL SISTEMA
DE MENSAJES DE Bingen.
With Object Tftp():New() /// CREO EL METODO DEL TFTP
:cPassword := 'password'
:cUser := 'usuario'
:lPassive := .t.
:Open()
:Connect('www.mihostin.com')
Archivo_ftp=:directory("/actualizaciones") ///OBTENGO TODOS
LOS ARCHIVOS QUE ESTAN ALMACENADOS EN ACTUALIZACIONES DEL SERVIDOR FTP
For cuenta=3 to len(Archivo_ftp ) ///
ESPECIFICO QUE A PARTIR DE 3 EMPIEZE A DARME LOS ARCHIVOS (CON LAS PRUEBAS
QUE HICE EL SERVIDOR FTP ME REGRESA 5 ARCHIVOS Y YO SOLO TENGO ALMACENADO 3
Extension=substr(Archivo_ftp[cuenta,1],len(Archivo_ftp[cuent a,1])-2,3)
///OBTENGO LA EXTENSION DEL ARCHIVO DEL FTP
If upper(Extension)="FR3" //// SI ES ARCHIVO
DE REPORTE (FASTREPORT)
delete
file(".REPORTES"+Archivo_ftp[cuenta,1] ) ///ELIMINO EL ARCHIVO LOCAL
:GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
".reportes"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
Loop
Endif
If upper(Extension)="EXE" /// SI ES EL ARCHIVO
DE MI APLICACION
delete file(".ADVENTAS.EXE")
///ELIMINO EL ARCHIVO DE MI APLICACION
:GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
"c:adventas"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
Loop
Endif
Next
WaitOff()
Msginfo("Actualizaciones realizadas con exito")
End With
RETURN Nil
Dios te bendiga.
Arriba
Avatar de Usuario
Marcelo Coelho Silva
Mensajes: 269
Registrado: Sab May 31, 2008 4:49 pm
Ubicación: Brasil
Contactar:
Contactar Marcelo Coelho Silva

Modulo para ACTUALIZACION

Mensaje por Marcelo Coelho Silva »

Pedro,
Vou testar a Rotina.
Obrigado.
Marcelo Coelho Silva
Brasil.
Em 07/04/2012 00:40, PEDRO DE LEON RODAS escreveu:
> Gusto de saludarlos.
>
> Tomando de la pregunta de Marcelo Coelho Silva, acerca de Ftp, hice una
> rutina para actualizar mis aplicaciones via Ftp.
>
> Marcelo Coelho Silva puso la forma de como conectarse al servidor Ftp y
> asi pude entender como hacerlo.
>
> Gracias Marcelo Coelho Silva por compartir.
>
> Este es el codigo
>
> Lo puse en un formulario y lo ejecuto desde un boton.
>
>
> METHOD ACEPTARClick( oSender ) CLASS ACTUALIZAR
> Local
> Archivo_ftp:={},Fecha_Archivo_local:=Array(1),Fecha_Archivo_ Ftp,archivos_ftp:={}
>
> Local cuenta,extension
>
> Adir(".ADVENTAS.EXE",,,Fecha_Archivo_local) /// ESTO ES DONDE TENGO MI
> APLICACION Y DEL CUAL TOMO LA FECHA DEL ARCHIVO
>
>
> With Object Tftp():New() /// CREO EL METODO DEL TFTP
>
> Waiton("Buscando actualizaciones") /// MANDO UN MENSAJE CON EL SISTEMA
> DE MENSAJES DE Bingen.
>
> :cPassword := 'password'
> :cUser := 'usuario'
> :lPassive := .t.
> :Open()
> :Connect('www.mihostin.com')
> Fecha_Archivo_Ftp=:directory("/actualizaciones/ADVENTAS.exe ") ///AQUI
> OBTENGO LA FECHA DEL ARCHIVO DEL FTP (ACTUALIZACIONES ES MI CARPETA Y
> ADVENTAS.EXE EL ARCHIVO DE MI APL.
>
> If Fecha_Archivo_local[1]>=Fecha_Archivo_Ftp[1,3] /// VALIDO LA FECHA
> DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
> WaitOff()
> Msginfo("No hay actualizaciones disponibles")
> REturn .t.
> Endif
>
>
> If Fecha_Archivo_local[1]<Fecha_Archivo_Ftp[1,3] /// VUELVO A VALIDAR LA
> FECHA DEL ARCHIVO LOCAL Y LA FECHA DEL ARCHIVO QUE ESTA EN EL SERVIDOR FTP
>
> WaitOff()
> IF MsgYesNo("Existe una nueva versión disponible, ¿desea descargarla?"
> )=.f.
> Return .t.
> Else
>
> Archivo_ftp=:directory("/actualizaciones") ///OBTENGO TODOS LOS ARCHIVOS
> QUE ESTAN ALMACENADOS EN ACTUALIZACIONES DEL SERVIDOR FTP
>
> Waiton("Realizando actualizaciones")
>
> For cuenta=3 to len(Archivo_ftp ) /// ESPECIFICO QUE A PARTIR DE 3
> EMPIEZE A DARME LOS ARCHIVOS (CON LAS PRUEBAS QUE HICE EL SERVIDOR FTP
> ME REGRESA 5 ARCHIVOS Y YO SOLO TENGO ALMACENADO 3
>
> Extension=substr(Archivo_ftp[cuenta,1],len(Archivo_ftp[cuent a,1])-2,3)
> ///OBTENGO LA EXTENSION DEL ARCHIVO DEL FTP
>
> If upper(Extension)="FR3" //// SI ES ARCHIVO DE REPORTE (FASTREPORT)
> delete file(".REPORTES"+Archivo_ftp[cuenta,1] ) ///ELIMINO EL ARCHIVO
> LOCAL
> :GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
> ".reportes"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
> Loop
> Endif
>
> If upper(Extension)="EXE" /// SI ES EL ARCHIVO DE MI APLICACION
> delete file(".ADVENTAS.EXE") ///ELIMINO EL ARCHIVO DE MI APLICACION
> :GetFile("/actualizaciones/"+Archivo_ftp[cuenta,1],
> "c:adventas"+Archivo_ftp[cuenta,1]) DESCARGO EL ARCHIVO DEL FTP A LOCAL
> Loop
> Endif
> * Msginfo("Nombre: "+Archivo_ftp[cuenta,1]+" Fecha:
> "+dtoc(Archivo_ftp[cuenta,3])+" Tamaño: "+Str(Archivo_ftp[cuenta,2])+"
> Hora:"+Archivo_ftp[cuenta,4],"DATOS DEL ARCHIVO" )
> Next
>
> WaitOff()
>
> Msginfo("Actualizaciones realizadas con exito")
>
> Endif
>
> Endif
>
> End With
> RETURN Nil
>
>
> Espero y les sirva y si lo pueden mejorar con barra de progreso o algo
> mas, pues ahi compartanlo.
>
>
> La union hace la fuerza.
>
> Dios les bendiga.
>
Att.

Marcelo Coelho Silva
Brasil.
Arriba
Responder

Volver a “Xailer Spanish”