Restreindre Sélection lecteur Lettre Par type

Question

J'ai une forme sur laquelle un utilisateur peut sélectionner une lettre de lecteur source:

If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then 
    TextBox1.Text = FolderBrowserDialog1.SelectedPath 
End If 

J'ai besoin de limiter la sélection des lettres de lecteur CD-ROM ou USB. Mon code ci-dessous valide les lettres de lecteur de CD Rom, mais pas des lettres de lecteur USB:

' Check selected drive type is CDROM or USB 
Dim Drive As New IO.DriveInfo(TextBox1.Text) 
If Drive.IsReady = True Then 
    If Not Drive.DriveType = IO.DriveType.CDRom or Drive.DriveType = IO.DriveType.Removable Then 
    MessageBox.Show("Source folder must be CD/DVD or USB.", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    Exit Sub 
    End If 
End If 

Comment configurer le code ci-dessus pour valider la lettre de lecteur sélectionnée est USB ou CD-ROM?

Answer 1

Vous manque seulement entre parenthèses à la condition:

If Not (Drive.DriveType = IO.DriveType.CDRom or Drive.DriveType = IO.DriveType.Removable) Then 

Plus simplement, vous avez eu:

If Not A Or B 

Mais le Not ne s'applique pas à B sans les crochets - il applique uniquement à A