tamanho do arquivo (resolvido)

[roberio]

ola grupo

preciso saber o tamanho(size) do meu executavel

vlw

[roberio]

Code: Select all  Expand view

 
  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