Get Drive Information : Drive « File Path « VBA / Excel / Access / Word

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

Get Drive Information

 
Declare Function abGetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Declare Function abGetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

'The GetDriveInfo Procedure
Sub GetDriveInfo()
   Dim intDrive As Integer
   Dim strDriveLetter As String
   Dim strDriveType As String
   Dim strSpaceFree As String

   'Loop through all drives
   For intDrive = 65 To 90 'A through Z
     strDriveLetter = (Chr(intDrive) & ":\")
     'Get Drive Type
     strDriveType = TypeOfDrive(strDriveLetter)
     'Get Space Free
     strSpaceFree = NumberOfBytesFree(strDriveLetter)
     Debug.Print Left(strDriveLetter, 2) & _
         " - " & strDriveType & _
         IIf(strDriveType <> "Drive Doesn't Exist", _
            strSpaceFree, "") & _
         vbCrLf
   Next intDrive

End Sub

 

Related examples in the same category