The TypeOfDrive Function : Drive « File Path « VBA / Excel / Access / Word

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

The TypeOfDrive Function

 
Function TypeOfDrive(ByVal strDrive As String) As String
   Dim intDriveType As Integer
   Dim strDriveType As String

      intDriveType = abGetDriveType(strDrive)
      Select Case intDriveType
         Case DRIVE_UNKNOWN
            strDriveType = "Type Unknown"
         Case DRIVE_UNAVAILABLE
             strDriveType = "Drive Doesn't Exist"
         Case DRIVE_REMOVABLE
             strDriveType = "Removable Drive"
         Case DRIVE_FIXED
             strDriveType = "Fixed Drive"
         Case DRIVE_REMOTE
             strDriveType = "Network Drive"
         Case DRIVE_CDROM
             strDriveType = "CD-ROM"
         Case DRIVE_RAMDISK
             strDriveType = "RAM Disk"
      End Select
      TypeOfDrive = strDriveType
End Function

 

Related examples in the same category