Tamanho de arquivo externo

donato23 · Mensagem por **donato23** » 24 Jul 2007 12:32

Caro colegas,
Existe algum comando que tenha a mesma funcao do RecSize() para verificar o tamanho de um arquivo externo, por exemplo um gif ou txt?
Obrigado

Mensagem por **Maligno** » 24 Jul 2007 12:33

Não no Clipper. Mas a CATools tem a função FileSize().

Pablo César · Mensagem por **Pablo César** » 24 Jul 2007 12:38

No clipper daria para você chamar o DIRECTORY ou ADIR() e através do nome obter tamanho, data, atributo, isso varrendo dentro de um FOR ou DO WHILE (em looping), * aliás usando o ASCAN() localiza o nome do arquivo na matriz e terá os resultados na mão.

Mas como disse o Maligno, tem o FILESIZE() da CT.LIB que faz isso diretamente.

Obs.: * Mensagem editada

Mensagem por **Maligno** » 24 Jul 2007 12:42

Não é que eu esqueci do raio da Directory()?

))
Exemplo direto, levando-se em conta que o arquivo existe:

Código: Selecionar todos

nSize := Directory("SEU_ARQ.JPG")[1][2]

Detalhe: Conforme consta no NG, a função ADir() só existe por questão de compatibilidade. Recomenda-se o uso de Directory().

Pablo César · Mensagem por **Pablo César** » 24 Jul 2007 12:44

Isso mesmo, assim ficaria mais rápido e no próprio Clipper ! :)Pos

donato23 · Mensagem por **donato23** » 24 Jul 2007 13:22

Obrigado pela vossa ajuda
Maligno, funcionou perfeitamente para o que eu precisava.
Mas fiquei com uma duvida agora.:
[1] (F_Name) nao deveria aparcer o nome do arquivo tambem quando imprimo a variavel criada?

Código: Selecionar todos

#include "directry.ch"
clear
nSize := Directory("logo.gif") [1][2]
? str(nsize,5)
[quote]
[/quote]

Mensagem por **Maligno** » 24 Jul 2007 13:31

Não. Da forma como eu exemplifiquei você terá apenas o valor numérico do tamanho. A matriz de retorno é "perdida" depois do uso desta forma. Pra extrair outra informação, você terá de armazená-la primeiro numa variável e ir acessando cada elemento que quiser utilizar.