Sub servient()
sPath = "C:"
Set oFs = CreateObject("Scripting.FileSystemObject")
Set drv = oFs.GetDrive(oFs.GetDriveName(sPath))
fullsize = drv.TotalSize
MsgBox (fullsize)
End Sub
Sub servient()
sPath = "C:"
Set oFs = CreateObject("Scripting.FileSystemObject")
Set drv = oFs.GetDrive(oFs.GetDriveName(sPath))
fullsize = drv.TotalSize
MsgBox (fullsize)
End Sub
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!
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.