Fórum Tamanho do arquivo! #184804
28/09/2003
0
Galera,
como saber o tamnaho em kb de um determinado arquivo?
Valew
como saber o tamnaho em kb de um determinado arquivo?
Valew
Lipsil
Curtir tópico
+ 0
Responder
Posts
28/09/2003
Lipsil
eu já consegui um aqui q mostra os bytes, e entao pra passar pra kb teria q dividir por 100, ma não é possivel de se dividir do valor dando um aviso de q string e integer nao sao compativeis..... o q fazer?
valew
valew
Responder
Gostei + 0
29/09/2003
Japa
Amigo achu que isso ajuda voce:
function TamArquivo(Arquivo: string): Integer;
begin
with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do
try
Result := Size;
finally
Free;
end;
end;
Utilize a função assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= inttostr(TamArquivo(´CAMINHO\NOMEDOARQUIVO´));
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)