Monitorar Tamanho Do Arquivo

[Igor Carlos]

Caros,

Estou querendo monitorar um arquivo criado pelo VB e com o comando "Append" e adicionando novas informações a cada 10s, porém não quero que ele ultrapasse 500Mb, quando chegar a este tamanho ele excluir as informações mais velhas para inserir as mais novas.

Posso fazer isso com vb?

[kuroi]

a funcao FileLen() retorna o tamanho do arquivo em bytes.

[Igor Carlos]

Com este comando consigo saber o tamanho do arquivo, porém preciso saber se consigo eliminar partes deste arquivo para que as novas informações possam ser inseridas sem que o arquivo ultrapasse 500 MB?

[Igor Carlos]

a funcao FileLen() retorna o tamanho do arquivo em bytes.

Esta função tem no VBS?

[kuroi]

Com este comando consigo saber o tamanho do arquivo, porém preciso saber se consigo eliminar partes deste arquivo para que as novas informações possam ser inseridas sem que o arquivo ultrapasse 500 MB?

não sei direito o esquema q você faz, mas fica de olho, quando o tamanho dos dados q você for incluir somado com o tamanho já existente no arquivo passar de 500, ai você apaga as partes q precisar.

Esta função tem no VBS?

não tenho mta certeza, testa ai e veja se ele não retorna nenhum erro.

[Igor Carlos]

Quero que o VBS sobrescreva o arquivo se ele ultrapassar um determinado valor, mas não está dando certo!

Onde Estou errando?

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\arquivo.txt", 8)
Set arq = fso.GetFile("c:\arquivo.txt")


If arq.size >= "1245000" Then
Set f = fso.CreateTextFile("C:\arquivo.txt", True) 

Else
MsgBox "Valor  não ULtrapassado"
end If

Editado Setembro 12, 2007 por Igor Carlos

[Graymalkin]

Pra quê as aspas aqui...

If arq.size >= "1245000" Then

... se o retorno da propriedade Size é numérico? Além disso, você tem certeza de que o arquivo está livre para ser sobrescrito naquele exato momento, ou seja, ele não estaria aberto por outro processo e isso estaria impedindo a sua escrita?

Abraços,

Graymalkin

[Igor Carlos]

Pra quê as aspas aqui...

If arq.size >= "1245000" Then

... se o retorno da propriedade Size é numérico? Além disso, você tem certeza de que o arquivo está livre para ser sobrescrito naquele exato momento, ou seja, ele não estaria aberto por outro processo e isso estaria impedindo a sua escrita?

Abraços,

Graymalkin

Estas aspas foram os problemas da função "If" não funcionar direito. Em relação a sobrescrever o arquivo, não estava acontecendo devido ao arquivo está aberto por este comando "Set f = fso.OpenTextFile("C:\arquivo.txt", 8)" no momento de sobrescrever. Para resolver, pedir que antes de sobrescrever fechar primeiro o arquivo

O Script corrreto é este:

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\arquivo.txt", 8)
Set arq = fso.GetFile("c:\arquivo.txt")


If arq.size > 1245000 Then
f.close
Set f = fso.CreateTextFile("C:\arquivo.txt", True) 

Else
MsgBox "Valor  não ULtrapassado"
end If

Graymalkin valeu mesmo pelas dicas.