Comparação de 2 executáveis ?

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Comparação de 2 executáveis ?

Mensagem por Dudu_XBase »

Caros amigos, alguém conhece um comando ou função q possibilite a comparação de 2 arquivos para verificar se existe diferença entre eles, q retorne um ERRORLEVEL ??
Como os executáveis estão nas estações, disponibilizo a atualização no servidor, rodaria esse programa q comparava o exe da estação com o da rede, havendo diferença executaria a copia do exe novo para estação.


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

Mensagem por clebermano »

vc pode pegar pela data do arquivo.
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

Por data naum serve ja tentei....pq ocorre mtas atualizações durante o msm dia...


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Fala Taka !!!

Use a função FILECHECK() da CTP.

Fiz uns testes e funcionou beleza...

Basta fazer a comparação do checksum dos executaveis da estação e do servidor.

Segue abaixo o código que usei para teste.

Código: Selecionar todos

PARAM ARQUIVO
CLS
IF .NOT. FILE(ARQUIVO)
   @ 05,00 SAY "Nao encontrado"
   RETURN
ENDIF
CHECKSUM=FILECHECK(ALLTRIM(ARQUIVO))
@ 10,00 SAY CHECKSUM
INKEY(0)
RETURN
Até logo.

Marcelo
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

Ow Marcelo o "xBacon" agradece...rs...vlw deu tudo certo...aki...(y)


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




Responder