Predmet:Slobodan prostor na disku
Da bi procedura radila u referencama treba biti ukljuceno:
Microsoft Sripting Runtime
Procedura vraca veličinu slobodnog prostora na disku.
PreuzmiIzvorni kôd (Visual Basic):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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.