Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

339 - Comprobar si hay instaladas unidades de CdRom

Ejemplo enviado por Luis Aguirre , para verificar mediante el uso FileSystemObject si hay unidades de cd rom en el sistema

Para el ejemplo añadir

la referencia FileSystemObject ( la referencia se llama Microsoft Scripting runtime ) desde el menú de visual basic
Colocar en el formulario un control CommandButton

Código fuente

Option Explicit '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Referencia : Microsoft Scripting Runtime '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub cd() On Error GoTo errcd Dim fso As FileSystemObject Dim resultado As Integer Set fso = New FileSystemObject Dim drive As drive For Each drive In fso.Drives If drive.DriveType = cdrom Then resultado = resultado + 1 MsgBox "Letra de la unidad de cdrom :" & drive.Path, vbInformation End If Next If resultado > 0 Then MsgBox " En su sistema hay : " & resultado & " unidades de cd", _ vbInformation, "resultado" Else MsgBox " En su sistema no hay unidades de cd rom", vbInformation, "resultado" End If Exit Sub errcd: MsgBox Err.Number & Chr(13) & Err.Description, vbCritical End Sub Private Sub Command1_Click() Call cd End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Recursos Visual basic.NET - enlaces relacionados

Método getDrives para obtener las unidades en .NET

Buscar en Recursos vb