Views

Histats

Vitrine

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!

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias