Actualizar el Ejecutable automáticamente

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Actualizar el Ejecutable automáticamente
Posted: Mon Mar 23, 2009 12:57 PM

Hola a todos.
Siguiendo algunos consejos en el foro de que es mejor tener el ejecutable el las terminales, y con el aporte de varios.
les envio como actualizar el EXE y la DLL (por si están usando)

Code (fw): Select all Collapse

 If File("FACTURAS.DLL")
      DllOn:="FACTURAS.DLL"
      DllNew:="\\SERVER\FACTURAS\FACTURAS.DLL"
      HoraNew:=FILETIME(DllNew); HoraOn:=FILETIME(DllOn)
       FecDllOn:=dToS(FILEDATE(DllOn))+Left(HoraOn,2)+Subs(HoraOn,4,2)+Right(HoraOn,2)
       FecDllNew:=dToS(FILEDATE(DllNew))+Left(HoraNew,2)+Subs(HoraNew,4,2)+Right(HoraNew,2)
       IF FecDllNew > FecDllOn
           COPY FILE \\SERVER\FACTURAS\FACTURAS.DLL TO FACTURAS.DLL
        Endif
 Endi
     
   ExeOn:="FACTURAS.EXE"
   ExeNew:="\\SERVER\FACTURAS\FACTURAS.EXE"
   HoraNew:=FILETIME(ExeNew); HoraOn:=FILETIME(ExeOn)
   FecExeOn:=dToS(FILEDATE(ExeOn))+Left(HoraOn,2)+Subs(HoraOn,4,2)+Right(HoraOn,2)
   FecExeNew:=dToS(FILEDATE(ExeNew))+Left(HoraNew,2)+Subs(HoraNew,4,2)+Right(HoraNew,2)
   IF FecExeNew > FecExeOn
     
         RENAME FACTURAS.EXE TO FACTURAx.EXE
         COPY FILE \\SERVER\FACTURAS\FACTURAS.EXE To FACTURAS.EXE
         WinExec(ExeOn) 
         Quit
     Endif

    If File("FACTURAx.EXE")
         DELETE FILE FACTURAx.EXE   
    Endi

Saludos para todos

Adhemar Cuéllar

Saludos,

Adhemar C.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Actualizar el Ejecutable automáticamente
Posted: Sun Apr 05, 2009 07:17 AM

Adhemar,

gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion