Que tal, espero les sea de utilidad este código fuente. Su finalidad es revisar una determinada
"letra" para un disco está en uso en Windows, por ejemplo c se usa comunmente para la unidad donde está el disco duro y D o E para el cdrom. Si esa unidad está activa y corresponde a la letra que estamos consultando la función nos devolverá
True, de lo contrario
False.
'#### Purpose: Return true|false if drive exists
'#### Created date: 08/05/2012
'#### Created by username: Juan Manuel Mar Hdz.
'#### Last modified date: 07/10/2015
'#### Last modified username: Juan Manuel Mar Hdz.
'#### Thanks to
http://vbcity.com/forums/t/155087.aspx
Public Function exists(letter As Char) As Boolean
Dim i As Long, drives As Integer, drivename As String = "", found As Boolean = False
If letter.ToString().IsNullOrEmpty(letter.ToString) = True Then
Return False
Else
drives = My.Computer.FileSystem.Drives.Count
For i=0 To drives - 1
Try
drivename = My.Computer.FileSystem.Drives(i).Name
drivename = drivename.Replace("\", "")
drivename = drivename.Replace(":", "")
Catch exp As Exception
drivename = ""
End Try
If drivename.IsNullOrEmpty(drivename) = False Then
If Asc(drivename.ToLower().Trim) = Asc(letter.ToString().Trim().ToLower) Then
found = True
Exit For
End If
End If
Next
Return found
End If
End Function