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 e espaço disponível em disco
Postada em 19/9/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'Função para tamanho do disco
Private Sub Command1_Click()

Dim wSistema As New FileSystemObject
Dim wDrive As Drive

Dim wResultado As String

Dim wLetra As String
wLetra = "C:"

Set wDrive = wSistema.GetDrive(wSistema.GetDriveName(wLetra))

wResultado = "Drive escolhido é: " & UCase(wLetra) & " - "
wResultado = wResultado & wDrive.VolumeName & vbCrLf
wResultado = wResultado & "Espaço Total: " & FormatNumber(wDrive.TotalSize / 1024, 0)
wResultado = wResultado & " Kb" & vbCrLf
wResultado = wResultado & "Espaço Livre: " & FormatNumber(wDrive.FreeSpace / 1024, 0)
wResultado = wResultado & " Kb" & vbCrLf
MsgBox wResultado

End Sub

 


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