Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Returns a string that describes the drive type

Private Declare Function GetDriveType32 Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Function DriveType(DriveLetter As String) As String     DLetter = Left(DriveLetter, 1) & ":"     DriveCode = GetDriveType32(DLetter)     Select Case DriveCode         Case 1: DriveType = "Local"         Case 2: DriveType = "Removable"         Case 3: DriveType = "Fixed"         Case 4: DriveType = "Remote"         Case 5: DriveType = "CD-ROM"         Case 6: DriveType = "RAM Disk"         Case Else: DriveType = "Unknown Drive Type"     End Select End Function Sub Main()   Debug.Print DriveType("c:\") End Sub