|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Tamanho de uma Pasta
|
![](images/box01dirsup.gif) |
|
|
Postada em 6/5/2004 por arm.g
'Tamanho de uma pasta,
Dim fso, f, f1, fc, s Dim Cnt, TamanhoTotal Cnt = 0 TamanhoTotal = 0 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("C:\windows") Set ColecaoFiles = f.Files For Each File In ColecaoFiles TamanhoTotal = TamanhoTotal + File.Size Next MsgBox "Quantidade de arquivos: " & ColecaoFiles.Count MsgBox "Soma do tamanho dos arquivos: " & TamanhoTotal & "Kb"
|
|
|
|
![](images/hosted.gif)
|