VBA: Obtenha o tamanho de arquivo em Kilobytes

Leia também: | Blog Office VBA | Blog Excel | Blog Access    |

Para aqueles que acompanham com precisão o tamanho dos arquivos (talvez planilhas) que estão sendo geradas por suas aplicações de automação, segue função muito útil para identificar o tamanho destes.

Mensure exatamente o tamanho dos arquivos e talvez até mesmo direcione, ou compacte-os quando necessário.

Function GetTheSize()
  Dim sFilePath As String

  Let sFilePath = "C:\CV\AndreLuizBernardes.doc"

  GetTheFileSize (sFilePath) & " Kb"
End Function

Public Function GetTheFileSize(sPath As String) As Long
  Dim iChannel As Integer

  Let iChannel = FreeFile

  Open sPath For Input As iChannel

  Let GetTheFileSize = Format((LOF(iChannel) / 1024), "#.0")
End Function

FONTE: http://www.vbaexpress.com/kb/getarticle.php?kb_id=624

Lembre-se que esta solução retorna o tamanho de qualquer arquivo. Poderá utilizá-la até mesmo para averiguar se os seus arquivos não foram alterados sem a sua permissão. Divirta-se!