Hard drive remaining space
Hard drive remaining space
(OP)
I need to find the harddrive space on a destination drive. It always returns 2 Gig. How can I get the actual disk space?
help please....
thanks
Kumar.
help please....
thanks
Kumar.
Are you a
Computer / IT professional?
Join Tek-Tips Forums!
Computer / IT professional?
Join Tek-Tips Forums!
- Talk With Other Members
- Be Notified Of Responses
To Your Posts - Keyword Search
- One-Click Access To Your
Favorite Forums - Automated Signatures
On Your Posts - Best Of All, It's Free!
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.
Talk To Other Members
RE: Hard drive remaining space
Private Sub ShowFreeSpace()
Dim fs, d, s
Dim drvPath as String
drvPath = "C:"
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & d.VolumeName & vbCrLf
s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
s = s & " Kbytes"
MsgBox s
End Sub
This came from the help file.
ntp