Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Volne_Misto = fso.Drives("C:").FreeSpace
Dostupne_Misto = fso.Drives("C:").AvailableSpace
Ďakujem funguje to.A ešte niečo, ako zaokrúhlim výsledný údaj na 2 desatinné miesta (vyhodí mi to napr. 14,4636116027832, a chcel by som dostať 14,46).