Tamanho de Arquivo e Tamanho de arquivo na Web
Ola a todos, estou com uma duvida sobre tamanho de arquivos.
1) como posso ver o tamanho de um determinado arquivo dentro do HD, exemplo c:\Tempo\texte.txt.
2) como posso ver o tamanho de um determinado arquivo na web, exemplo http://endereco_na_web/imagem.jpg
Agradeco a atencao de todos.
Obrigado.
1) como posso ver o tamanho de um determinado arquivo dentro do HD, exemplo c:\Tempo\texte.txt.
2) como posso ver o tamanho de um determinado arquivo na web, exemplo http://endereco_na_web/imagem.jpg
Agradeco a atencao de todos.
Obrigado.
Icheuk
Curtidas 0
Respostas
Gandalf.nho
31/01/2005
1) como posso ver o tamanho de um determinado arquivo dentro do HD, exemplo c:\Tempo\texte.txt.
Experimente FileSizeByName
GOSTEI 0
Icheuk
31/01/2005
Gandalf.nho
obrigado pela ajuda, porem nao funcionou eu estou utilizando o delphi 7
e retorna a mensagem
[Error] BaixaArquivoNet.pas(156): Undeclared identifier: ´FileSizeByName´
E tentei achar no help e nao consegui, voce teria alguma outra dica.
E para Web, voce sabe como ver o tamanho de um arquivo na web ?
E saberia como ao digitar um endereco na web ele retornar todos os arquivos dentro deste diretorio na web ?
Agradeco a atencao.
obrigado pela ajuda, porem nao funcionou eu estou utilizando o delphi 7
e retorna a mensagem
[Error] BaixaArquivoNet.pas(156): Undeclared identifier: ´FileSizeByName´
E tentei achar no help e nao consegui, voce teria alguma outra dica.
E para Web, voce sabe como ver o tamanho de um arquivo na web ?
E saberia como ao digitar um endereco na web ele retornar todos os arquivos dentro deste diretorio na web ?
Agradeco a atencao.
GOSTEI 0
Aroldo Zanela
31/01/2005
Colega,
Depende da versão do seu Delphi (IdGlobal.pas).
Depende da versão do seu Delphi (IdGlobal.pas).
GOSTEI 0
Icheuk
31/01/2005
Caro Aroldo, obrigado pela ajuda, o meu delphi é o 7 enterprise.
GOSTEI 0
Rômulo Barros
31/01/2005
[b:083d8118d0]Tamanho do arquivo no HD:[/b:083d8118d0]
with TFileStream.Create(´C:\Teste.txt´,fmOpenRead) Do
Begin
ShowMessage(IntToStr(Size) + ´ bytes´);
End;
GOSTEI 0