Page 1 of 1

tamanho do arquivo (resolvido)

Posted: Fri Sep 16, 2011 3:26 pm
by roberio
ola grupo

preciso saber o tamanho(size) do meu executavel

vlw

Re: tamanho do arquivo

Posted: Fri Sep 16, 2011 5:28 pm
by roberio

Code: Select all

  
  adir1   := Directory(cDir_001+"sistema.exe")
  adir2   := Directory(Left(cDir_002,nLenArq)+"sistema.exe")

  If adir1[1,2] # adir2[1,2]
     cOrigem  := Left(cDir_002,nLenArq)+"sistema.exe"
     cDestino := cDir_001+"sistema.exe"
     __CopyFile(cOrigem,cDestino)
  Endif