¿Como saber qué tipo de disco tiene asignada una unidad?
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Function TipoUnidad(ByVal strLetraUnidad As String) As String
Select Case GetDriveType(strLetraUnidad)
Case 2: TipoUnidad = "Removable"
Case 3: TipoUnidad = "Drive Fixed"
Case 4: TipoUnidad = "Remote"
Case 5: TipoUnidad = "Cd-Rom"
Case 6: TipoUnidad = "Ram disk"
Case Else: TipoUnidad = "Unrecognized"
End Select
End Function
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)