Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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