DELETAR ARQUIVO POR TAMANHO

CARALEA 02/11/2009 04:29:40
#326721
To querendo cria um programa que ele deleta arquivo por tamanho.
Exemplo:
[txt-color=#006400]Kill [Ô]*.txt[Ô][/txt-color]
Ai eu colocaria algum tamanho para que ele deletase apenas os .txt de uma pasta que tiver aquele tamanho em Byte.
TECLA 02/11/2009 09:21:50
#326723
Exemplo de como pegar o tamanho do arquivo:

Dim tamArq As Double
tamArq = FileLen([Ô]C:\Temp\Northwind.mdb[Ô])
MsgBox tamArq, , [Ô]Tamanho em bytes[Ô]


Agora é só fazer um LAÇO (For, Do While ou Do Loop) e percorrer o mesmo.
CARALEA 02/11/2009 13:14:34
#326738
Esse code ae eu ja sabia, só que não consigo faze do jeito que eu quero
Teria como postar o code inteiro? do jeito que eu falei?
TECLA 02/11/2009 20:44:07
#326770
Só não testei, o resto é contigo! 

Dim Arq As String, tamArq As Double
Arq = Dir([Ô]C:\Backup\Temp\*.txt[Ô])
Do While Arq <> [Ô][Ô]
    DoEvents
    tamArq = FileLen(Arq)
    [txt-color=#006400][ô]Excluir arquivos TXT com 15000 bytes da pasta Backup\Temp[/txt-color]
    If tamArq = 15000 Then Kill Arq
    Arq = Dir
Loop
CARALEA 03/11/2009 01:31:39
#326779
Eu crio esse diretorio [Ô]C:\Backup\Temp\[Ô], Crio um arquivo chamado [Ô]teste.txt[Ô], coloco 47 Byte nele, depois la no Code do programa eu altero para 47 Byte tmb, só que ele da erro quando vai exclui, e só exclui os arquivo .txt se o programa estiver na mesma pasta do arquivo.
Tem como arruma esse erro? Tentei aqui de todos os jeito e não consegue
TECLA 03/11/2009 09:05:00
#326781
Vamos lá!

Dim Arq As String, tamArq As Double, Path As String
Path = [Ô]C:\Backup\Temp\[Ô]
Arq = Dir(Path & [Ô]*.txt[Ô])
Do While Arq <> [Ô][Ô]
    DoEvents
    tamArq = FileLen(Path & Arq)
    [ô]Excluir arquivos TXT com 15000 bytes da pasta Backup\Temp
    If tamArq = 15000 Then Kill Path & Arq
    Arq = Dir
Loop


Teste novamente.
CARALEA 03/11/2009 17:15:06
#326834
Ok!
Deu certo
Agora como faz para que ele delete varios arquivos de 15000 Byte que tem em 255 pasta? gostaria que ele deletase todos de uma vez, das 255 pasta de uma vez.
Tentei isso [Ô]Path = [Ô]*\[Ô] Mas não deu
Tem algum jeito de definir todas as pastas em um unico code?
Tópico encerrado , respostas não são mais permitidas
Voltar