|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
