How to check harddisk space

[jack1080]

Hi, i wish to check the user C drive remaining spaces using vba, how to do this?

 

[ZmrAbdulla]

This is somewhere here.. I can't find the thread

Function ShowFreeSpace(Optional drvPath = "C:")
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "Drive " & UCase(drvPath) & " - "
   s = s & d.VolumeName & vbCrLf
   s = s & "Total Size: " & FormatNumber(d.TotalSize / 1024, 0) & " Kbytes" & vbCrLf
   s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0) & " Kbytes"
   ShowFreeSpace = s
End Function
'=========================================
Private Sub Command0_Click()
MsgBox ShowFreeSpace
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people