Table of contents
TOC
Collapse the table of content
Expand the table of content

Drive Object

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Description Provides access to the properties of a particular disk drive or network share. Remarks The following code illustrates the use of the Drive object to access drive properties:

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    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
© 2018 Microsoft