Display Drive information : Drive « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. Drive

Display Drive information

 
Sub cmdDriveInfo_Click()
    Dim myFileSystemObject As FileSystemObject, aDrive As Drive

    Set myFileSystemObject = New FileSystemObject
    Set aDrive = myFileSystemObject.GetDrive("C:\")
    With aDrive
        Debug.Print "Volume Name: " & .VolumeName & vbCrLf
        Debug.Print "Free Space: " & Format(.FreeSpace / 1000000000#, "#0.00") & "GB" & vbCrLf
        Debug.Print "Total Size: " & Format(.TotalSize / 1000000000#, "#0.00") & "GB" & vbCrLf
        Debug.Print "Ready: " & .IsReady
    End With
    Set myFileSystemObject = Nothing
    Set aDrive = Nothing
End Sub

Private Sub AddFolders()

 

Related examples in the same category