Option Explicit

Public FSO As New FileSystemObject
Function SlobodanProstor(ImeDiska As String)
Dim disk As Drive
Dim vel As Double
Set disk = FSO.GetDrive(ImeDiska)
vel = disk.FreeSpace
vel = vel / 1073741824 ' pretvaranje u GB
vel = WorksheetFunction.Round(vel, 2)
MsgBox "Slobodnog prostora na disku " & ImeDiska & " je " & vel & " GB"
SlobodanProstor = vel
End Function