USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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"
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página