Actualizar el Ejecutable automáticamente

[acuellar]

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: Select all

 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

[Antonio Linares]

Adhemar,

gracias!