Návod jak zjistit velkost pamětí ve vašem PC. Či jejich volné místo...

Do modulu:

Declare Sub GlobalMemoryStatus Lib "kernel32" _
(lpBuffer As MEMORYSTATUS)
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

Do formuláře:

ms.dwLength = Len(ms)
GlobalMemoryStatus ms
Print "Velikost fyzické paměti: " & _
(ms.dwTotalPhys / 1024 / 1024) & " Mb"
Print "Volné místo ve fyzické paměti: " & _
(ms.dwAvailPhys / 1024 / 1024) & " Mb"
Print "Využití fyzické paměti: " & ms.dwMemoryLoad & " %"
Print "Maximální velikost swapovacího souboru: " & _
(ms.dwTotalPageFile / 1024 / 1024) & " Mb"
Print "Volné místo ve swapovacím souboru: " & _
(ms.dwAvailPageFile / 1024 / 1024) & " Mb"
Print "Velikost virtualní paměti: " & _
(ms.dwTotalVirtual / 1024 / 1024) & " Mb"
Print "Volné místo ve virtualní paměti: " & _
(ms.dwAvailVirtual / 1024 / 1024) & " Mb"