Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Function DriveExists(ByVal sLetter As String) As Boolean
    Dim lRet As Long
    
'   formate  "X:\"
    sLetter = UCase$(LeftB$(Trim$(sLetter), 2))
    If sLetter Like "[A-Z]" Then
        lRet = GetDriveType(sLetter & ":\")
        DriveExists = ((lRet > 1&) And  (lRet < 7&))
    End If
End Function

'Imports System
'Imports System.Runtime.InteropServices

<DllImport("kernel32")> _
Private Function GetDriveType(ByVal lpRootPathName As String) As Integer
End Function

Private Function DriveExists(ByVal sLetter As String) As Boolean
  If Not String.IsNullOrEmpty(sLetter) Then
    sLetter = sLetter.Substring(0, 1).ToUpper()
    If Text.RegularExpressions.Regex.IsMatch(sLetter, "[A-Z]") Then
      Dim DriveType As Integer = GetDriveType(String.Format("{0}:\", sLetter))
      Return ((DriveType > 1&) And (DriveType < 7&))
    End If
  End If
  Return False
End Function
Coloration syntaxique vb/vba/vb.net 

//using System;
//using System.Runtime.InteropServices;

[DllImport("kernel32")]
private static extern int GetDriveType(string lpRootPathName);

private static bool DriveExists(string sLetter) {
  if (!string.IsNullOrEmpty(sLetter)) {
    sLetter = sLetter.Substring(0, 1).ToUpper();
    if (System.Text.RegularExpressions.Regex.IsMatch(sLetter, "[A-Z]")) {
      int DriveType = GetDriveType(string.Format(@"{0}:\", sLetter));
      return ((DriveType > 0x1) && (DriveType < 0x7));
    }
  }
  return false;
}

Function DriveExists(sLetter: AnsiChar):  Boolean; 
Begin 
  Result := GetDriveType(PWideChar(sLetter+':\')) In  [DRIVE_REMOVABLE..DRIVE_RAMDISK]; 
End; 

public static bool IsDriveExists(string letter) 
{
   return new DriveInfo(letter).DriveType != (DriveType.NoRootDirectory | DriveType.Unknown); 
}