Prikazi cijelu temu 12.03.2017 13:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Option Explicit
  2.  
  3. Public FSO As New FileSystemObject
  4. Function SlobodanProstor(ImeDiska As String)
  5. Dim disk As Drive
  6. Dim vel As Double
  7. Set disk = FSO.GetDrive(ImeDiska)
  8. vel = disk.FreeSpace
  9. vel = vel / 1073741824 ' pretvaranje u GB
  10. vel = WorksheetFunction.Round(vel, 2)
  11. MsgBox "Slobodnog prostora na disku " & ImeDiska & " je " & vel & " GB"
  12. SlobodanProstor = vel
  13. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.