VERIFICAR A CAPACIDADE LIVRE DE ARMAZENAMENTO

USUARIO.EXCLUIDOS 25/04/2007 22:32:05
#213786

Então boa sorte, não entendi seu post!

HUGOSSOUZA 26/04/2007 08:52:03
#213800 Resposta escolhida

para saber o espaço livre você pode fazer assim:

'em um módulo
Declare Function GetDiskFreeSpace Lib "kernel32" Alias _
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters _
As Long) As Long


' em um botão
Dim SectorsPerCluster As Long
Dim BytesPerSector As Long
Dim NumberOfFreeClusters As Long
Dim TotalNumberOfClusters As Long
Dim BytesLivres As Long
Dim retorno As Long
dim unidade as string
unidade = "F:"

retorno = GetDiskFreeSpace(unidade, SectorsPerCluster, _
BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters)

retorno = GetDiskFreeSpace("F:", SectorsPerCluster, _
BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters)

BytesLivres = (NumberOfFreeClusters * SectorsPerCluster * _
BytesPerSector) / 1024

'BytesLivres = BytesLivres / 1024

MsgBox " A unidade possui " & Format(BytesLivres, "###,###,###,###") & " kb livres "