Problemas com a filesize()

[cjp]

Pessoal,

Estou tendo um problema estranho com a função filesize(). Ela está retornando -1 ou -11, mesmo quando o tamanho do arquivo está correto, com cerca de 1 MB. Já testei com vários arquivos.

Noto que isto só está ocorrendo com arquivos que não são .dbf. Quando testo com .dbf, funciona corretamente.

Será que a filesize() só funciona com .dbf?

[rmlazzari]

Quando precisei, fiz assim:

Código: Selecionar todos

abc := directory('arquivo.txt')
tamanho := abc[1][2] // em bytes

[cjp]

Aqui tá dando "Error BASE/1132 Erro de limite: acesso de array" na linha tamanho := abc[1][2] // em bytes.

[fladimir]

Eu uso aki com arquivos sem ser DBF e funciona bem.

Vc usa Harbour ou xHarbour?

Posta um exemplo de como esta fazendo..

[JoséQuintas]

CJP... acho que esqueceu do básico

Código: Selecionar todos

abc := directory('arquivo.txt') 

Isso retorna um array com as informações do arquivo.txt, mas somente se ele existir, senão retorna um array vazio, que é o que deve ter acontecido.
ao acessar o elemento 1, que não existe, deu esse erro.

Código: Selecionar todos

oFiles := Directory( "arquivo.txt" )
IF Len( oFiles ) == 0
   ? "Não existe o arquivo"
ELSE
   ? oFiles[ 1, 2 ]
ENDIF

[JoséQuintas]

Achei isto, confirme.

http://harbour.edu.pl/lib/tools/ng98d54.html

Mas dá pra ver que os exemplos estão furados.

[rmlazzari]

Ou ainda... pretaportê, rs...

Código: Selecionar todos

FUNCTION Fsize(cArq)

loca aDir := Directory(cArq)

Return iif ( Len (aDir) == 0, -1, aDir [1,2])

:)Pos

[cjp]

Realmente, meu caro Quintas, comi bola ao não lembrar que o arquivo está em pasta diferente da do programa.

Obrigado. Agora funcionou.

E agora eu vi que também estava comendo bola na filesize, da mesma forma. Corrigi e ela também funcionou. Obrigado a todos.