Net Anlatım .Net Geliştirme

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

Dim SectorsPerCluster&
Dim BytesPerSector&
Dim NumberOfFreeClusters&
Dim TotalNumberOfClusters&
Dim BosAlan&

temp& = GetDiskFreeSpace(”c:\”, SectorsPerCluster, _
BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters)

‘ BosAlan degiskeni toplam bos byte degerini tutar: