FreeMemory

Public Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Public Declare Sub GlobalMemoryStatus _
Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Dim MS As MEMORYSTATUS
MS.dwLength = Len(MS)
GlobalMemoryStatus MS

' MS.dwMemoryLoad = percentuale della memoria usata

' MS.dwTotalPhys = totala della memoria fisica in bytes

' MS.dwAvailPhys = memoria fisica disponibile

' MS.dwTotalPageFile = memoria totale di una pagina

' MS.dwAvailPageFile = memoria disponibile di una pagina

' MS.dwTotalVirtual = memoria virtuale installata

' MS.dwAvailVirtual = memoria virtuale disponibile