HARD DRIVE

  • Thread starter Thread starter DENISE
  • Start date Start date
Hi Denise

In Windows Explorer or My Computer, right click on the Drive
letter>properties
 
Easy:

Sub servient()
sPath = "C:"
Set oFs = CreateObject("Scripting.FileSystemObject")
Set drv = oFs.GetDrive(oFs.GetDriveName(sPath))
fullsize = drv.TotalSize
MsgBox (fullsize)
End Sub
 
Gary''s Student said:
Easy:

Sub servient()
sPath = "C:"
Set oFs = CreateObject("Scripting.FileSystemObject")
Set drv = oFs.GetDrive(oFs.GetDriveName(sPath))
fullsize = drv.TotalSize
MsgBox (fullsize)
End Sub


ROTFLMAO!
 
Its the only answer that makes sense in an Excel context. If the poster was
interested in the physical size rather than the disk capacity, the answer
would have been to open the computer and measure the length, width, and
height with a tape measure!
 
But we had insufficient information to properly answer it in that context:
inches or cm was not specified. So, I believe your response is accurate and
within context <g>
 
May not have specifically been an Excel question - but she had smarts enough
to come to the group that she knew could handle an adhoc question!
 
Back
Top