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!
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Nenhum comentário:
Postar um comentário