Como verificar uma lista de arquivos numa determinada pasta pelo taman

[Pecosak]

Bom desde já agradeço a ajuda sou novo em programação meu problema e o seguint, tenho que servidor de jogo RF ONLINE e tem uns hacker que trocam o arquivo dos do meu cliente original criei um laucher para ser executado antes do jogo iniciar então quero que ele verifique se os arquivos são do tamanho original como eu estipular exemplo:

Vou clicar no botão “start game” automaticamente o script vai verificar se o “arquivo1.rf” que esta na pasta “C:\Program Files\RF” tem o tamanho 10k se sofrerão alterações de tamanho então executar o programa de up-date “C:\Program Files\RF\update.exe” para essa correção, se não sofreu alteração executar o programa “C:\Program Files\RF \rf.exe”.

[Renato Knupp]

A função abaixo lista todos os arquivos de uma pasta, é só adapta-la para sua necessidade:

Public Function Varre(endereço)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set aqui = FSO.GetFolder(endereço)

For Each Arquivo In aqui.Files

Aux1 = Len(Arquivo.Path) - InStr(1, StrReverse(Arquivo.Path), "\")

Range("A" & linha).Value = Mid(Arquivo.Path, 1, Aux1 + 1)

Range("A" & linha).Value = Arquivo.Name

Range("B" & linha).Value = Arquivo.Size

linha = linha + 1

Next

For Each Pasta In aqui.SubFolders

Varre (Pasta.Path)

Next

End Function

crie um botão e dentro dele chame a função passando o endereço a ser analizado:

linha = 1

Call Varre("C:\Documents and Settings\administrador\Desktop")