|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Tamanho de uma Pasta
|
 |
|
|
|
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"
|
|
|
|
|
