Function ByteLiberiSuUnita(ByVal Unita As String) As Long
Dim FileSystemObj
Dim Drv
Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
Set Drv = FileSystemObj.GetDrive(Unita)
ByteLiberiSuUnita = Drv.AvailableSpace
End Function
Per richiamare la funzione si utilizza una delle seguenti forme:
SpazioLibero = ByteLiberiSuUnita("C:\")
SpazioLibero = ByteLiberiSuUnita("C:")
SpazioLibero = ByteLiberiSuUnita("C")
Per ottenere il valore espresso in megabyte :
SpazioLibero = ByteLiberiSuUnita("C") / 1048576
Vi ricordo che SpazioLibero è una variabile di tipo Long quindi deve essere dichiarata prima del richiamo della funzione :
Dim SpazioLibero As Long