Aporte: función para saber si una unidad está disponible o no en VB.Net

[haggenx]

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

[minombreesmm]

Excelente aporte amigo, habra alguna manera de reparar un disco duro externo que no es detectado asi?
solo aparece en Equipo click derecho administrar y en discos duros, pero no se le puede hacer nada.
Alguna manera de repararlo forzado?
voy a probar tu codigo a ver si lo detecta. gracias

[haggenx]

la verdad no se