DominoArea.org [Archive]

[syntax="ls"]Declare Function GetDiskFreeSpace Lib "Kernel32" Alias _
"GetDiskFreeSpaceA" (Byval lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters _
As Long) As Long

Sub Initialize
Dim FreeDiskSpace As Long
Dim SectorsPerCluster As Long
Dim BytesPerSector As Long
Dim NumberOfFreeClusters As Long
Dim TotalNumberOfClusters As Long

FreeDiskSpace = GetDiskFreeSpace ("c:\",SectorsPerCluster, _
BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters)

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


Messagebox "Espace disque disponible = " & Str(Freediskspace)
End Sub[/syntax]